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Preface 


APPLE may be the world’s most popular computer 
system. Its lightweight desktop design and powerful 
language capability have placed it at the forefront of the new 
wave of personal computers for home, school and office. 

Not at all a toy, its hardware and software combination 
have made it a highly useful tool in the business 
environment and the classroom as well as for practical jobs 
around the home. 

The number of jobs which the APPLE computer can 
handle is limited only by the scope of the imagination. In 
this book we have attempted to create 33 new specific 
practical sets of applications software for your use. In fact, 
you'll find 35 different programs in this volume. 

This book is written for newcomers and beginners, as 
well as for advanced users of microcomputers. Our 
intention has been to provide ready-to-run programs. You 
type them in and the APPLE does the rest. 

This book is a companion volume to 107 APPLE 
Computer Programming Tips & Tricks. 


— Fred White 
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Introduction 


There’s a great need for practical, useful software for 
the new generation of popular, personal computers. The 
APPLE is powerful and flexible and versatile — but what can 
itdo? The aim of this book is to provide at least 33 (in fact, 
there are 35 different programs in this book) complete 
ready-to-run sets of program lists for you to use in making 
your APPLE computer work for you. 

These are designed to be typed in, just as you find them 
in this book, with no other programming needed. You really 
don’t have to be a computer programmer to use these pieces 
of software. 

This book can be used by newcomers and beginners as 
well as old-timers in the programming game. Each of the 35 
programs in this book has been thoroughly tested and run 
many times on an APPLE II computer. Each is ready to use 
right away. 

The book has been organized into three sections plus 
an appendix: programs for the business office; programs 
for the classroom; and practical programs for the home. 
The appendices give you a handy place to look for the 
BASIC words and error messages used in your APPLE. 
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Naturally, the sections of this book are not rigid dividing 
lines. You probably will find something in the business 
section or classroom section applicable to your home use. 
Or you may take one of the home programs to work or 
school. Try them all! They’re great fun to run. They are 
especially designed to be short so you won't have to spend 
hours typing them into your APPLE. 


Other computers 

These programs will run on other microcomputer 
systems, but you will have to make minor modifications to 
program lines in some cases. Graphics commands, 
especially, will differ elsewhere. 

Also, if you use other than APPLE II, line numbering, 
logical tests, multiplication symbols, print statements and 
other instructions may differ. If you want to run these 
programs on a machine, other than an APPLE Il, better 
check the list of available BASIC words and how they work 
on your computer before running. 


REMarks 

As you read through the 35 programs in this book, you 
will notice few REMarks. The author’s training in writing 
BASIC-language computer programs included an 
emphasis on brevity and saving memory space. A sharp 
editing pencil was in order — and still is! 

Remarks and explanations in the software were out. 
Honing, find-tuning and waste trimming were in. Use of 
coding form program-writing worksheets, such as the 
APPLE BASIC Coding Form (published by ARCsoft 
Publishers), was encouraged. The objective always was — 
and still is — to make the most efficient use of available 
memory. 

Always remember: even though they may be headed 
toward the same goal, no two programmers will write 
exactly the same list of BASIC instructions or program lines 
from scratch. As you load these 35 programs into your 
APPLE, you'll make modifications to suit your personal 
needs and interests. Exact wording of PRINT statements, 
for instance, can be changed. Or two or more programs 
could be combined into one grand scheme. Your 
applications may vary. 


ENTER vs. ENTER 

We use in our write-ups the word RETURN and the 
word ENTER interchangeably. In either case we mean the 
large key marked RETURN on the right-hand side of the 
APPLE keyboard. 

By the way, the author would like to hear of improve- 
ment suggestions as well as ideas for future volumes in this 
series for the APPLE computer. He may be addressed in 
care of ARCsoft Publishers, Post Office Box 132, 
Woodsboro, Maryland 21798 USA. 

If you want to load more than one of these programs 
into your computer at the same time, be sure to use different 
sets of line numbers for different programs. 
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Programs 
for Businessmen 


Profit Estimator 


How much cash flow will | generate if | sell 100 
thingamabobs? A question faced everyday in the 
business office. Whether you sell large lots at wholesale, 
small quantities across the retail counter, or individual 
items via mail order, this program will give you a quick 
estimate of expected cash flow and potential profits. It 
allows fast comparisons when quick decisions are need- 
ed. 

The computer asks you questions about the quantity of 
items involved, prices, quantity sold, discounts, etc. Then 
it calculates unit price, unit profit, gross profit, return 
percentages, sales needed to break even, and more, 
depending upon which part of the program you are using. 

The program is divided into four main blocks: 

—an opening billboard from line 10 through line 210; 

—wholesale computations, lines 1000 to 1320; 

—mail order computations, lines 2000 to 2360; 

—ad response computations, lines 3000 to 3590. 

Remember that the program only estimates, it is not ex- 
act. The wholesale, direct-mail, or ad-response manufac- 
turing cost asked by the computer is tota/, not per unit. 

This program is a useful tool for small business, 
whether a local furniture store, supermarket, wholesaler, 
or regional mail-order house. 


Program Listing 


10 HOME:CLEAR 
20 PRINT "PROFIT ESTIMATOR" 
30 PRINT 
40 PRINT "WHICH TYPE OF SALE:" 
50 PRINT "WHOLESALE (W)" 
60 PRINT "DIRECT MAIL (D)" 
70 PRINT "MEDIA AD RESPONSE (M)" 
80 PRINT 
100 PRINT CHRS(7) 
110 PRINT "W,D, OR M ?" 
120 GET QS 
130 IF QS="W" THEN 1000 


140 

150 

170 

180 

190 

200 

210 
1000 
1010 
1020 
1030 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1155 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
2000 
2010 


IF QS="D" THEN 2000 

IF QS="M" THEN 3000 

HOME 

PRINT "OKAY. YOU SELECTED ";Q$ 
PRINT "HOWEVER, ";QS;" IS NOT" 
PRINT "A CHOICE. TRY AGAIN" 
GOTO 40 

HOME:CLEAR 

PRINT "WHOLESALE" 

PRINT "PROFIT ESTIMATOR" 

PRINT 

PRINT CHRS(7) 

PRINT"PLEASE ANSWER THESE QUESTIONS" 
PRINT 

INPUT"MANUFACTURING COST $"3;C 
PRINT CHRS(7) 

INPUT" QUANTITY MANUFACTURED" ;P 
PRINT CHRS(7) 

INPUT"LIST PRICE OF ITEM"sL 
PRINT CHRS(7) 

INPUT"TOTAL QUANTITY SOLD";S 
IF S<>@ THEN 1160 

GOTO 10 

INPUT"WHOLESALE DISCOUNT %";D 
UC=C/P 

UP=(L*((100-D)/100))-UC 
W=L*S*((100-D)/100) 

G=W- (S*UC) 

PRINT CHRS(7) 

PRINT 

PRINT "------ " 


PRINT"UNIT COST IS $";UC 


PRINT"UNIT PROFIT IS S"sUP 
PRINT" WHOLESALE GROSS $";W 
PRINT"WHOLESALE PROFIT $"5G 
PRINT "------ " 

PRINT 

PRINT "FOR MORE,PRESS ANY KEY" 
GET AS 

GOTO 10 

HOME :CLEAR 

PRINT"DIRECT MAIL" 
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PRINT "PROFIT ESTIMATOR" 
PRINT 

PRINT CHRS(7) 

PRINT"PLEASE ANSWER THESE QUESTIONS" 
PRINT 

INPUT"MANUFACTURING COST $"5C 
PRINT CHRS(7) 

INPUT"QUANTITY MANUFACTURED" ;P 
PRINT CHRS(7) 

INPUT"LIST PRICE OF ITEM"s$L 
PRINT CHRS(7) 

INPUT "TOTAL QUANTITY SOLD";S 
PRINT CHRS(7) 

INPUT"FLYERS MAILED" ;K 

PRINT CHRS(7) 

INPUT"FLYER PRINT COSTS"sR 
PRINT CHRS(7) 

INPUT"POSTAGE COST S"5;M 

UC=C/P 

3=100*S/K 

T=L*S- (R+M+UC*S) 

U=L*S 

PRINT CHRS(7) 

PRINT 

PRINT "------ " 

PRINT"DIRECT MAIL" 
PRINT"RETURN IS "33;" PERCENT" 
PRINT"DIRECT MAIL GROSS $"3U 
PRINT"DIRECT MAIL PROFIT $"5T 
PRINT "------ " 

PRINT 

PRINT"FOR MORE,PRESS ANY KEY" 
GET AS 

GOTO 10 

HOME :CLEAR 

PRINT "AD RESPONSE" 

PRINT "PROFIT ESTIMATOR" 

PRINT 

PRINT CHRS(7) 

PRINT"PLEASE ANSWER THESE QUESTIONS" 
PRINT 

INPUT"MANUFACTURING COST $"5C 


PRINT CHRS(7) 

INPUT"QUANTITY MANUFACTURED" ;P 
PRINT CHRS(7) 

INPUT"LIST PRICE OF ITEM"sL 
PRINT CHRS(7) 

INPUT"AD COST PER INSERTION"S$A 


PRINT CHRS(7) 

INPUT"NUMBER OF INSERTIONS";I1 
PRINT CHRS(7) 

HOME 

PRINT" WHICH DO YOU WANT TO KNOW?" 
PRINT 

PRINT"SALES QUANTITY NEEDED" 
PRINT"TO BREAK EVEN (Q)" 

PRINT 

PRINT"PROFIT FROM SELLING" 
PRINT"A SPECIFIC QUANTITY (P)" 
PRINT 

PRINT"P OR Q 2?" 

GET AS 

IF AS="P" THEN 3460 

IF AS="Q" THEN 3330 

GOTO 3280 

PRINT 

B= INT ((C+A*I)/L) +1 

PRINT "------ 

PRINT"SELL "3;B;" TO BREAK EVEN" 
PRINT" INCLUDING COVERING" 
PRINT"S"sC3" MANUFACTURING COST" 
PRINT" AND gn, AxT; " AD CAMPAIGN" 
PRINT "------ 

PRINT 

PRINT" FOR MORE,PRESS ANY KEY" 
GET AS 

GOTO 10 

PRINT 

INPUT"QUANTITY SOLD";S 

N=S*L 

UC=C/P 

E=S*L-S*UC-A¥*I 
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3530 PRINT"ORDERS GROSS IS $"3N 

3540 PRINT"DIRECT MAIL PROFIT IS S"sE 
3550 PRINT "------ " 

3560 PRINT 

3570 PRINT"FOR MORE,PRESS ANY KEY" 
3580 GET AS 

3590 GOTO 10 


Inventory Review 


Here’s a time-saver, useful for small businesses in 
evaluating the contents of inventory. As written, it can 
handle 50 different inventory items. To change that quan- 
tity, increase or decrease the number 50 in lines 10 and 
100 and the number 49 in line 430. 

The computer will ask you the name of a product’s 
manufacturer, what the product is, its retail price, and the 
quantity on hand in inventory. 

It sorts all such information on the various items in in- 
ventory and lists, alphabetically by manufacturer, and 
then lists again, alphabetically by product name. 

Note in the sample run, the program can tell the dif- 
ference between a manufacturer’s similar products and 
between the same products from different manufac- 
turers. If one manufacturer has the same _ product 
available at different prices, the computer sorts by price. 
See the sample run for an example of this. 

Use a printer and you will be able to print-out for your 
permanent records an alphabetized list of all products in 
inventory and a summary review of quantities, prices, and 
values. 


Whether you display results on your television screen 
or on a printer, statistics include total number of different 
items in inventory; number of different items in various 
price ranges; and total retail value of the inventory. 

You can change the price ranges by modifying the less- 
than values in lines 170-210. 
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Program Listing 


10 HOME:DIM MS(50) 


20 PRINT SX 4 KKK KKK KEKKEKKKKKEKKKEN 


30 PRINT"* INVENTORY REVIEW *" 
40 PRINT SX HERR KKK KKKKKKKKKKKEN 
50 PRINT:PRINT:PRINT CHRS(7) 
100 FOR L=1 TO 50 
110 INPUT"MANUFACTURER: "3;P5 
120 IF PS="" THEN 400 
130 INPUT"PRODUCT: ";Q5$ 
140 INPUT"RETAIL PRICE: $";G$ 
150 INPUT"QUANTITY ON HAND: ";GGS$ 
160 X=VAL(GS):XX=VAL(GGS) 
170 IF X<10 THEN F=F+1:GOTO 220 
180 IF X<20 THEN D=D+1:GOTO 220 
190 IF X<30 THEN C=C4+1:GOTO 220 
200 IF X<40 THEN B=B+1:GOTO 220 
210 A=A+l 
220 Y=Y+X 
230 Z=Z+41 
240 IF Z=l1 THEN J=X:K=X 
250 IF X<J THEN J=X 
260 IF X>K THEN K=X 
270 I=1+X 
280 ITI=XX*X:TT=TT+II1 
290 H=I/Z 
300 MS(L)=PS+" "4QS+" marsnigsgan "1GGS 
310 PRINT 
320 NEXT L 
400 HOME:PRINT CHRS(7) 
410 PRINT"SORTING" 
420 T= 
430 FOR L=1 TO 49 
440 IF MS(L)<=MS(L+1) THEN 460 
450 ES=MS(L):MS(L)=MS(L41):M$(L41 )=E$:T=1 
460 NEXT L 
470 IF T=1 THEN 420 
500 HOME:PRINT CHRS(7) 
510 PRINT"MFG / ITEM / PRICE / QUANTITY" 
520 PRINT 
530 FOR L=1 TO 50 
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540 IF MS(L)<>"" THEN PRINT MS(L) 

550 NEXT L 

560 PRINT:PRINT 

570 PRINT"TO REVIEW INVENTORY, PRESS ANY KEY" 
580 GET KYS 

700 HOME:PRINT CHRS(7) 

710 PRINT TAB(10)"INVENTORY REVIEW" 

720 PRINT:PRINT"NUMBER DIFFERENT ITEMS:" 
730 PRINT A;" FROM $40.00 ON UP" 

740 PRINT B;" FROM $30.00 TO 39.99" 

750 PRINT C3" FROM $20.00 TO 29.99" 

760 PRINT D;" FROM $10.00 TO 19.99" 

770 PRINT F;"™ UNDER $10.00" 

780 PRINT:PRINT"TOTAL "3Z;" ITEMS" 

790 PRINT:PRINT"AVERAGE PRICE S"sH 

800 PRINT"RANGE $"395" TO $"3K 

810 PRINT"TOTAL RETAIL VALUE $"3TT 

820 PRINT:PRINT:PRINT 

830 PRINT"TO DO ANOTHER SET, PRESS ANY KEY" 
840 GET KYS$ 

850 CLEAR:GOTO 10 


Sample Run 


KHKKKKKKKKKKRKKKKKKKEE 


* INVENTORY REVIEW * 


KKEKHKEKHKKKKKHEKKKKKKKEE 


MANUF ACTURER: 
BROWN RETURN 
PRODUCT: 

WIDGET RETURN 
RETAIL PRICE: §$ 
9.95 RETURN 
QUANTITY ON HAND: 
100 RETURN 


MANUF ACTURER : 
SMITH RETURN 
PRODUCT: 
GLOVES RETURN 
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RETAIL PRICE: §$ 
12.99 RETURN 
QUANTITY ON HAND: 
40 RETURN 


MANUFACTURER: 
JONES RETURN 
PRODUCT: 

OVENS RETURN 
RETAIL PRICE: § 
39.99 RETURN 
QUANTITY ON HAND: 
17 RETURN 


MANUFACTURER: 
RETURN 


SORTING 
MFG / ITEM / PRICE / QUANTITY 


BROWN WIDGET $9.95 100 
JONES OVENS $39.99 17 
SMITH GLOVES $12.99 40 


TO REVIEW INVENTORY, PRESS ANY KEY 
H 


INVENTORY REVIEW 
NUMBER DIFFERENT ITEMS: 
@ FROM $40.00 ON UP 
1 FROM $30.00 TO 39.99 
@ FROM $20.00 TO 29.99 
1 FROM $10.00 TO 19.99 
1 UNDER $10.00 
t 


OTAL 3 ITEMS 
AVERAGE PRICE $20.9766667 


RANGE $9.95 TO $39.99 
TOTAL RETAIL VALUE $2194.43 


TO DO ANOTHER SET,PRESS ANY KEY 
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Invoice Computer 


The computer will ask you for a discount percentage to 


be applied to the invoice; the retail price of goods being 
invoiced; and the quantity of those goods. 


You enter actual percentage. The computer changes 


that to the appropriate decimal vaue. 


Then it will ask if you have other items to be shown on 


the same invoice. If so, it again will get price and quantity 
sold info from you. It will assume the same discount applies. 


When you tell the computer there are no more items for 


the same invoice, it will compute and display the total. 


Program Listing 


10 
20 


30 


GOSUB 600 

PRINT:PRINT" INFORMATION FOR 
COMPUTING INVOICES:" 

PRINT: INPUT"WHAT IS DISCOUNT 
PERCENTAGE ";DP 

DD=1-.01*DP 

INPUT"WHAT IS THE ITEM SOLD "3ITS 
INPUT"WHAT IS RETAIL PRICE "5P 
INPUT"WHAT IS THE QUANTITY SOLD ";Q 
C=P*DD:I=C*Q:T=T+I 

PRINT:PRINT' WHOLESALE COST OF "3;Q; 
" "sTTSs"S: S"sI 

PRINT *=PRINT =PRINT 

PRINT"IF THERE ARE MORE ITEMS" 
PRINT"FOR THE SAME INVOICE, PRESS M" 
PRINT:PRINT"IF NO OTHER ITEMS,PRESS 
Z=PEEK(-16384) 

POKE -16368,¢ 

IF Z<128 THEN 140 

IF Z=205 THEN HOME:GOTO 50 

IF Z=212 THEN 200 

GOTO 140 

PRINT:PRINT CHRS(7) 

PRINT" INVOICE GRAND TOTAL: S$"3T 
PRINT:PRINT 

PRINT"TO DO OTHER INVOICES" 


240 PRINT"AT OTHER DISCOUNTS, PRESS 
ANY KEY" 

250 GET KYS 

260 CLEAR:GOTO 10 

600 HOME 


610 PRINT "XX KKH KH KKK KKH HKKKHHN 


620 PRINT "* INVOICE COMPUTER *" 


630 PRINT "4K XK EHH KEK K KKK KEN 


640 RETURN 


Pricing Mark-Up 


Figuring price mark-ups can be boring work. The com- 
puter can lighten that load. 

This program works for manufacturers, wholesalers, 
and retailers. For instance, a manufacturing firm, selling 
products to middlemen or to the public, might calculate 
wholesale or retail price using a standard pricing 
multiplier. That number, multiplied times manufacturing 
cost, gives price. Such a standard multiplier is used by 
companies where exact manufacturing and production 
costs are too complex to calculate precisely. 

Suppose a manufacturing firm uses an 8x multiplier. It 
multiplies manufacturing/ production costs by 8 to set 
price. If one product has a manufacturing cost of $1.89, 
the 8x formula would show a price of $15.12. 

Many firms like to round up to the next 95¢. In this ex- 
ample, the price would become $15.95. 


Lines 300 to 590 of the program handle such wholesale 
price-multiplier problems for you. 

A retail store knows the discount it gets from a sup- 
plier. The store has the supplier's invoice showing 
wholesale price. This program will compute the list price 
from the discount and wholesale price. 

For instance, suppose your wholesaler gives you a 42 
percent discount on a wholesale $49 item. The computer 
finds that list retail is $84.48. 

Lines 600 to 1120 of our program handle such retail 
pricing for you. 

Lines 10 to 70 create a program-opening billboard. 
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Lines 100 to 200 allow you to select wholesale vs. retail. 
Lines 1200-1230 create a closing billboard so you know 
for sure the program is done running. 


Program Listing 


HOME:CLEAR:PRINT CHRS(7) 
MS="PRICING MARK-UP" 

LM=LEN(MS) 

LT=LM+4 

FOR L=1 TO LT 

ASS=ASS+"*" 

NEXT L 

P=(40-LT)/2 

HOME 

PRINT TAB(P) ASS 

PRINT TAB(P) "* "sMSs" x" 

PRINT TAB(P) ASS 

FOR L=1 TO 9:PRINT:NEXT L 

PRINT TAB(9)"PRESS ANY KEY TO START" 
FOR L=l TO 9:PRINT:NEXT L 

GET KYS 

HOME:PRINT CHRS(7) 

PRINT" WHICH KIND DO YOU WANT" 
PRINT"RETAIL OR WHOLESALE ?" 
PRINT:PRINT"RETAIL", "PRESS R 
AND RETURN" 

PRINT" WHOLESALE", "PRESS W AND RETURN" 
INPUT CHS 

IF CHS="W" THEN 300 

IF CHS="R" THEN 600 

GOTO 210 

HOME:PRINT CHRS(7) 
INPUT"MANUFACTURING COST: $"3MC 
INPUT"PRICING MULTIPLIER: "3PM 
WP=MC*PM 

HOME:PRINT CHRS(7) 

PRINT"DO YOU WANT EXACT PRICE, 
NOT ROUNDED" 

PRINT"OR PRICE TO NEAREST 95 CENTS ?" 
PRINT:PRINT"EXACT", "PRESS E AND 
RETURN" 


PRINT"NEAREST 95","PRESS N AND 
RETURN" 

INPUT AS 

IF AS="E" THEN 490 

IF AS="N" THEN 440 

GOTO 390 

WP=INT (MC*PM)+.95 

HOME:PRINT CHRS(7) 

BS="COST: ":CS="MULTIPLIER 

: ":DS="WHOLESALE: " 

PRINT BS+"S"sMC 

PRINT CS3;PM 

PRINT DS+"S"3 WP 

FOR L=1 TO 8:PRINT:NEXT L 

PRINT"TO DO MORE","PRESS M AND RETURN" 
PRINT"TO QUIT","PRESS Q AND RETURN" 
INPUT AS 

IF AS="M" THEN CLEAR:GOTO 160 

GOTO 1200 

HOME:PRINT CHRS(7) 

PRINT"DO YOU WANT EXACT CENTS" 


~ PRINT"OR NEAREST 95 CENTS ?" 


PRINTsPRINT"EXACT", "PRESS E AND 
RETURN" 

PRINT"NEAREST 95","PRESS N AND RETURN" 
INPUT AS 

IF AS="E" THEN 800 

IF AS="N" THEN 1000 

GOTO 650 

HOME:PRINT CHRS(7) 

INPUT"WHOLESALE PRICE YOU PAID 

° Ss" ; wP 

INPUT"DISCOUNT PERCENT YOU WERE GIVEN 
> "sWD 

PC=.01*WD:RP=WP/(1-PC) 

HOME:PRINT CHRS(7) 

PRINT" WHOLESALE: $"3;WP 

PRINT"DISCOUNT: "s3WD;"%" 

PRINT"RETAIL: $S"3RP 

FOR L=1 TO 9:PRINT:NEXT L 

PRINT"TO DO MORE","PRESS M AND 

RETURN" 
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900 PRINT"TO QUIT","PRESS Q AND RETURN" 
910 PRINT:PRINT: INPUT AS 
920 IF AS="M" THEN CLEAR:GOTO 160 
930 GOTO 1200 
1000 HOME:PRINT CHRS(7) 
1010 INPUT"WHOLESALE PRICE YOU PAID 
: $"3WP 
1020 INPUT"MARK-UP PERCENT YOU WANT 
> "™sMU 
1030 RP=INT(WP/(1-.01*MU) )+.95 
1040 HOME:PRINT CHRS(7) 
1050 PRINT"WHOLESALE: 5S"s;WP 
1060 PRINT"MARK-UP: "sMU;"%" 
1070 PRINT"RETAIL: S"3RP 
1080 FOR L=1 TO 9:PRINT:NEXT L 
1090 PRINT"TO DO MORE","PRESS M AND 
RETURN" 
1100 PRINT"TO QUIT","PRESS Q AND RETURN" 
1110 PRINT:PRINT: INPUT AS 


1120 IF AS="M" THEN CLEAR:GOTO 160 
1200 HOME:PRINT CHRS(7) 

1210 FOR L=1 TO 12:PRINT:NEXT L 
1220 PRINT TAB(15)"FHANK YOU" 

1230 END 


Sample Run 
PRICING MARK-UP 


PRESS ANY KEY TO START 
H 


WHICH KIND DO YOU WANT 
RETAIL OR WHOLESALE ? 


RETAIL PRESS R AND RETURN 
WHOLESALE PRESS W AND RETURN 
R RETURN 


DO YOU WANT EXACT CENTS 
OR NEAREST 95 CENTS ? 


EXACT PRESS E AND RETURN 
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NEAREST 95 PRESS N AND RETURN 


N RETURN 

WHOLESALE PRICE YOU PAID: 
6.00 RETURN 

MARK-UP PERCENT YOU WANT: 
40 RETURN 
WHOLESALE: $6 

MARK-UP: 40% 


RETAIL: $10.95 


TO DO MORE PRESS M AND RETURN 
PRESS Q AND RETURN 


TO QUIT 


$ 


Daily Codes 


Businesses everywhere are concerned about security. 
Banks, credit card managers, warehousemen, shipping 
clerks, office managers, all need private daily codes for 
internal use to prevent unauthorized admission to storage 
areas, financial records, private files. 

Now you can use your own Apple computer to generate 
a set of secret codes, one for each day of the week. This 
program generates a series of pseudorandom numbers and 
displays a table of those numbers alongside names of the 
days of the week. 

The subroutine in lines 200 to 220 generates four-digit 
random numbers. 


Program Listing 


10 HOME 
20 GOSUB 
100 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 
150 PRINT 
160 PRINT 


200 
"SUNDAY : 
"MONDAY: 
"TUESDAY: 
"WEDNESDAY: 
"THURSDAY: 
"FRIDAY: 
"SATURDAY : 


:GOSUB 
:GOSUB 
:GOSUB 
:GOSUB 
:GOSUB 
:GOSUB 
:END 


200 
200 
200 
200 
200 
200 
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200 C=INT(10000*(RND(1))) 
210 IF C<1000 THEN GOTO 200 
220 RETURN 


Hourly Wages 


This handy program computes total hours worked at 
regular pay and number of hours worked at time-and-a-half 
overtime. It then finds gross pay and rounds off to the 
nearest cent. The program knows that overtime starts after 
40 hours. 

The result is a nice chart on the display, after the 
computer asks only three questions. 

You can change the number of regular-work hours per 
week by changing the number 40 in lines 200 and 210. 
Change the overtime multiplier of 1.5 by changing the 
number 1.5 in line 300. 

This program makes payroll booking quick and simple. 


Program Listing 


10 HOME:PRINT CHRS(7) 
20 PRINT:PRINT 
30 PRINT XXX KKEKKEKKKKKKEN 


40 PRINT"* HOURLY WAGES *" 


50 PRINT XX KEKE KERR RH EN 
60 PRINT :PRINT 


100 INPUT"EMPLOYEE*S NAME: "35N 
110 PRINT CHRS(7) 
120 INPUT"HOURLY PAY RATE: "3;P 


130 PRINT CHRS(7) 

140 INPUT"TOTAL NUMBER OF HOURS WORKED 
: "SH 

150 PRINT CHRS(7) 

200 IF H=40 OR H<40 THEN RH=H:0H=@ 
:GOTO 300 

210 IF H>40 THEN OH=H-40:RH=40 

300 OP=1.5*P:PA=RH*P:PB=OH*OP 

310 PY=PA+PB 

320 PY=INT(100*PY+.5)/100 

&00 HOME 


410 PRINT"EMPLOYEE:",NS$ 

420 PRINT 

430 PRINT"TOTAL HOURS:",H 

440 PRINT 

450 PRINT"REGULAR HOURS:",RH 

460 PRINT"REGULAR RATE:","S"5P 
470 PRINT"TOTAL REGULAR:","S"3PA 
480 PRINT 

490 PRINT"OVERTIME HOURS:",0H 

500 PRINT"OVERTIME RATE:","S"30P 
510 PRINT"TOTAL OVERTIME:","S";PB 
520 PRINT 

530 PRINT"GROSS PAY:","S"3PY 

600 FOR L=1 TO 6:PRINT:NEXT L 

610 PRINT"TO COMPUTE WAGES FOR A" 
620 PRINT"DIFFERENT EMPLOYEE, PRESS ANY KEY" 
630 GET KYS$ 

640 GOTO 10 


Sample Run 


HHEKKKHKKKEKKHKKKE 


* HOURLY WAGES * 


KHKEKKKKKKKKKKRKKE 


EMPLOYEE'S NAME: 


JONES RETURN 

HOURLY PAY RATE: 

5.00 RETURN 

TOTAL NUMBER OF HOURS WORKED: 
50 RETURN 


EMPLOYEE: JONES 
TOTAL HOURS: 50 
REGULAR HOURS: 40 
REGULAR RATE: $5 
TOTAL REGULAR: $200 
OVERTIME HOURS: 10 
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OVERTIME RATE: $7.5 
TOTAL OVERTIME: $75 


GROSS PAY: $2.75 


TO COMPUTE WAGES FOR A 
DIFFERENT EMPLOYEE, PRESS ANY KEY 


Highest/Lowest Item Price 


Got a group of products with a wide range of list 
prices? Use this program to sort them and you’ll find 
which is highest priced and which is lowest. 

Where the program asks for a ‘‘name,”’ key in the pro- 
duct name. When it asks for “‘price,” key in the list price. 

By the way, we’ve set this up for 100 products. At line 
20, we dimensioned the memory for 100. You can change 
that number to any lower or higher figure which suits your 
need. 

To make the computer display the results of its 
computations, simply press RETURN without data in 
response to the “name” question. That will prompt the 
computer to go to lines 140 to 180, to show the highest and 
lowest prices. 


Program Listing 


10 HOME 
20 DIM MS$(100) 
30 FOR L=1 TO 100 
40 INPUT"NAME: '"3MNS 
50 IF MNS="" THEN 140 
60 INPUT"PRICE: $"sKWS 
70 MS(L)=MNS4" "4KkWS 
80 N=N+1 
90 K=VAL(KWS) 
100 IF N=1 THEN LL=K:LMS=MS(L):HH=K 
s:HMS=MS(L) 
110 IF K<LL THEN LL=K:LMS=MS(L) 


120 IF K>HH THEN HH=K:HMS=MS(L) 

130 NEXT L 

140 PRINT:PRINT CHRS(7) 

150 PRINT"LOWEST PRICED ITEM: ";LMS 

160 PRINT"HIGHEST PRICED ITEM: '3HMS 
170 PRINT:PRINT:PRINT 

180 PRINT"TO DO MORE, PRESS ANY KEY" 
190 GET KYS 

200 CLEAR:GOTO 10 


Sample Run 
NAME: 
HAT RETURN 
PRICE: § 
9.95 RETURN 
NAME : 
SCARF RETURN 
PRICE: §$ 
2.99 RETURN 
NAME: 
GLOVES RETURN 
PRICE: §$ 
6.25 RETURN 
NAME : 

RETURN 


LOWEST PRICED ITEM: SCARF 2.99 
HIGHEST PRICED ITEM: HAT 9.95 


TO DO MORE, PRESS ANY KEY 


Salesman’s Commission 


Representatives, salesmen, account representatives, 
sales representatives. Here’s the no-sweat way to com- 
pute commissions to be paid to your sales corps. 

The computer will ask you for pertinent data and then 
display results including the salesman’s name, the pay 
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period, his commission percentage rate, gross sales, and 
commission payable. 


Program Listing 


10 HOME:PRINT CHRS(7) 
20 PRINT TAB(12)"REP COMMISSIONS" 
30 PRINT:PRINT 
40 INPUT"SALES PERIOD ENDING DATE 
2 "DS 
50 INPUT"SALESMAN'S NAME: "sNS 
60 INPUT"COMMISSION PERCENTAGE: ";P 
70 K=.01*P 
80 INPUT"SALESMAN'S GROSS SALES: $"3Q 
90 T=K*Q 
100 HOME:PRINT CHRS(7) 
110 PRINT"SALESMAN:",NS 
120 PRINT"PERIOD ENDING:",D$ 
130 PRINT"COMMISSN RATE:",P3"%" 
140 PRINT"GROSS SALES:","S$"3Q 
150 PRINT"COMMISSION:","S"3T 
160 FOR L=l TO 9:PRINT:NEXT L 
170 PRINT "FOR ANOTHER, PRESS ANY KEY" 
180 GET KYS 
190 P=@:K=@:T=@:PRINT CHRS(7) 
200 HOME:GOTO 50 


Sample Run 


REP COMMISSIONS 


SALES PERIOD ENDING DATE: 


12/31/83 RETURN 
SALESMAN'S NAME: 

SMITH RETURN 
COMMISSION PERCENTAGE: 

15 RETURN 
SALESMAN'S GROSS SALES: §$ 
16243.00 RETURN 
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SALESMAN : SMITH 
PERIOD ENDING: 12/31/83 
COMMISSN RATE: 15% 
GROSS SALES: $16243 
COMMISSION: $2436.45 


FOR ANOTHER, PRESS ANY KEY 


Employee Roll Sorter 


Here’s a simple sorting routine which you can use to 
keep your list of employees in order. Type the names of all 
your employees into the computer and it will use this 
“bubble sort” program to put the list in alphabetical order 
for you. As set up, it accepts up to 100 names. 

Push RETURN (with no name entered) to get out of the 
input cycle. 


Program Listing 


10 HOME 
20 DIM M$(100) 
30 FOR L=1 TO 100 
40 INPUT"EMPLOYEE'S NAME: "s;NS 
50 IF NS="" THEN 100 
60 INPUT"EMPLOYEE DATA: "3;DS 
70 MS(L)=NS+" "4DS 
80 PRINT 
90 NEXT L 
100 HOME:PRINT"SORTING" 
110 T=@ 
120 FOR L=1 TO 99 
130 IF MS(L)<=M$(L+1) THEN 150 
140 ES=MS(L):MS(L)=MS(L41 ) :MS(L4+1)=E$ 
:T=1 
150 NEXT L 
160 IF T=1 THEN 110 
170 HOME:PRINT CHRS(7) 
200 FOR L=1 TO 100 
210 IF MS(L)<>"" THEN PRINT MS(L) 
220 NEXT L 
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Sample Run 


EMPLOYEE'S NAME 
JONES RETURN 
EMPLOYEE DATA 
83127 RETURN 
EMPLOYEE'S NAME 
SMITH RETURN 
EMPLOYEE DATA 
26549 RETURN 
EMPLOYEE'S NAME 
ANDREWS RETURN 
EMPLOYEE DATA 
50719 RETURN 
EMPLOYEE'S NAME 
RETURN 


SORTING 
ANDREWS 50719 


JONES 83127 
SMITH 26549 


Unit Price 


Suppose you find 895 green Widgets and buy them 
for $695. How much did each green Widget cost? 


Rounded off, $7.77. 


Unit price is total price divided by quantity. The quanti- 
ty can be expressed in weight, total numbers, etc. It works 
the same whether you are talking about pounds of coffee, 
yards of concrete, gallons of ice cream, boxes of books, 


or units of Widgets. 


This program asks for the name of the item, quantity 
purchased and total price paid. It then displays quantity, 
name, total and unit price. 


Program Listing 
10 HOME 


20 PRINT XXX RRR XKEKEKKENM 


32 


30 PRINT"* UNIT PRICE *" 
40 PRINT" KKEKHKRKRKRKKHKKHHKEM 
50 PRINT:PRINT 
100 INPUT"NAME OF ITEM "sNS 
110 INPUT"QUANTITY OF ITEMS ";Q 
120 INPUT"TOTAL PRICE FOR ALL ITEMS §$";P 
130 U=P/Q:PRINT CHRS(7) 
200 PRINT:PRINT Q3" "sNS4+"S"3s" TOTAL S"5P 
210 PRINT"EACH "sNS3" S"3U 
220 FOR L=1 TO 9:PRINT:NEXT L 
230 PRINT"FOR ANOTHER,PRESS ANY KEY" 
240 GET KYS 
250 CLEAR:GOTO 20 


Sample Run 
UNIT PRICE 


NAME OF ITEM 
WIDGET RETURN 


QUANTITY OF ITEMS 
150 RETURN 


TOTAL PRICE FOR ALL ITEMS § 
88.75 RETURN 


150 WIDGETS TOTAL $88.75 
EACH WIDGET $.591666667 


FOR ANOTHER,PRESS ANY KEY 


Executive Decision Maker 


Stumped by a toughie? Got one too hot to handle 
alone? Need help with major decisions? When there is no 
other way to decide, punch up this quickie and get a 
definite YES or NO. 
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Program Listing 


10 HOME:R=INT(1000*(RND(1))) 

20 IF R>499 THEN PRINT "YES":GOTO 40 
30 PRINT"NO" 

40 GET KYS:PRINT CHRS$(7):GOTO 10 
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Programs for 
Teachers and Students 


Math Flasher 


Here’s the basic routine (no pun intended) for an educa- 
tional flash-card program. This one is bare-bones, no 
frills. You can dress it up with more colorful right-n-wrong 
messages, opening and closing billboards, etc. You could 
even make it keep score and present a “batting average”’ 
at the end of its run. 

Here’s how it works: 

Lines 10- 90 determine which type of math you wish to 
do. Lines 50- 80 move program action to the appropriate 
group of lines further along in the program. 

Lines 200-280 handle addition. Lines 300-390, subtrac- 
tion. Lines 400-480, multiplication. Lines 500-590, divi- 
sion. 

For example, look at lines 200-280. Two separate ran- 
dom numbers are generated (lines 200 and 210). The ran- 
dom numbers are labeled P and Q. At line 220, the pro- 
gram uses P and Q and asks you to add them together. 
Line 230 waits for and accepts your answer. 

Line 240 clears old, unwanted words from the screen to 
reduce confusion. At line 250, the program makes the 
right or wrong decision, using the powerful 
IF/THEN statement. Line 270 prints the correct 
answer. 

Program execution for subtract (lines 300-390), multiply 
(lines 400-480), and divide (lines 500-590), are similar ex- 
cept for line 320 in subtraction and line 520 in division. 

We make the assumption that it is not desirable to have 
negative numbers as results of subtraction. That is, we 
want only subtraction problems with results of zero, one, 
two, three, or higher. We want no problems which would 
result in answers below zero such as -1, -2, -3, and so 
forth. So, line 320 tests P and Q, before presenting the 
problem on the screen. If they will result in a negative- 
number answer, then the program returns to lines 300-310 
for two new numbers. 

In division, we want whole-number answers. That is, we 
want answers like 2 or 11 or 26. Not answers like 1.81 or 
9.75 or 21.3343. So, line 520 tests P and Q to make sure 
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their dividend will be a whole number. If not, the program 
goes back to line 500 and line 510 for two new numbers. 


Program Listing 


10 HOME:PRINT"DO YOU WANT TO" 

20 PRINT"ADD" : PRINT" SUBTRACT" 

30 PRINT"MULTIPLY"sPRINT" DIVIDE" 

40 PRINT :INPUT"WHICH ?";BS$ 

50 IF BS="ADD" THEN GOTO 200 

60 IF BS="SUBTRACT" THEN GOTO 300 

70 IF BS="MULTIPLY" THEN GOTO 400 

80 IF BS="DIVIDE" THEN GOTO 500 

90 GOTO 40 
200 P=INT(10*(RND(1))) 
210 Q=INT(10*(RND(1))) 
220 PRINT:PRINT"ADD ";P3" PLUS "3Q 
230 INPUT R 
240 HOME 
250 IF R=P+Q THEN PRINT "CORRECT" :G0T0270 
260 PRINT "WRONG" 
270 PRINT Ps" PLUS "3Q3" EQUALS "3;P4Q 
280 FOR LL=E TO 1O00:NEXT LL 

220 PRINT:GOTO 200 

300 P=INT(10*(RND(1))) 

310 Q=INT(EO*(RND(1))) 

320 IF P-Q<@ THEN GOTO 300 

330 PRINT:PRINT"SUBTRACT "303" FROM "3P 
340 INPUT R 

350 HOME 

360 IF R=P-Q THEN PRINT "CORRECT":GOTO 380 
370 PRINT"WRONG" 

380 PRINT Ps" MINUS "3Q3" EQUALS ";P-Q 
385 FOR LL=1 TO 1000:NEXT LL 

390 PRINT:GOTO 300 

400 P=INT(10*(RND(1))) 
410 Q=INT(10*(RND(1))) 

420 PRINT:PRINT"MULTIPLY "3P3" TIMES " 


430 INPUT R 
440 HOME 
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450 IF R=P*Q THEN PRINT "CORRECT" 
:GOTO 470 

460 PRINT"WRONG" 

470 PRINT Ps;" TIMES "sQ3" EQUALS ";P*Q 

480 FOR LL=l1 TO 1000:NEXT LL 

490 PRINT:GOTO 400 

500 P=INT(100*(RND(1))) 

510 Q=INT(10*(RND(1))) 

515 IF Q<l THEN GOTO 510 

520 IF P/Q <> INT(P/Q) THEN GOTO 500 

530 PRINT "DIVIDE ";P3" BY "3Q 

540 INPUT R 


550 HOME 
560 IF R=P/Q THEN PRINT "CORRECT" 
:GOTO 580 


570 PRINT "WRONG" 

580 PRINT P;" DIVIDED BY ";Q;" EQUALS " 
>P/Q 

585 FOR LL=1 TO 1000:NEXT LL 

590 PRINT:GOTO 500 


Exam Score Sorting 


The final number scores of a large number of test 
results can be categorized and thereby cut down into a 
smaller quantity of numbers easily. 

This program accepts exam scores and divides them 
into ranges we have labeled A, B, C, D and F. The program 
looks for test scores in a range of zero to 100. The predeter- 
mined grade ranges are F=0 to 59; D=60 to 69; C=70 to 79; 
B=80 to 89; and A=90 to 100. 

You key in the letter X to break the entry cycle. Lines 
100 to 140 sort the scores into letter grades A through F. 
Lines 150 to 170 sort highest and lowest scores. Line 200 
finds the mid-range and average scores. 


Program Listing 
10 HOME:CLEAR 


20 PRINT CHRS(7) 
30 PRINT "ENTER A GROUP OF SCORES" 
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40 PRINT "FROM ZERO TO 100, ONE AT A 


TIME" 
50 PRINT "ENTER X AFTER LAST SCORE" 
60 PRINT: INPUT"SCORE = "3;G$ 


70 IF GS="X" THEN 200 
80 G=VAL(GS) 
90 N=N+4l1 
100 IF G<60 THEN F=F+1:GOTO 150 
110 IF G<70 THEN D=D+1:GOTO 150 
120 IF G<80 THEN C=C+1:GOTO 150 
130 IF G<90 THEN B=B+1:GOTO 150 
140 A=A+1 
150 IF N=l THEN L=G:H=G 
160 IF G<L THEN L=G 
170 IF G>H THEN H=G 
180 S=S+4C 
190 GOTO 60 
200 P=S/N:M=L+((H-L)/2) 
210 HOME:PRINT"THERE WAS A TOTAL OF" 
sN;" SCORES" 
220 PRINT"RANGING FROM "$L3;" TO "sH 
230 PRINT"MID-RANGE SCORE WAS "3M 
240 PRINT"AVERAGE SCORE WAS ";P 
250 PRINT:PRINT"TOTALS FOR EACH LETTER 
GRADE:" 
260 PRINT"A: "3A 
270 PRINT"B: "3B 
280 PRINT"C: ";C 
290 PRINT"D: "3D 
300 PRINT"F: "“3F 
310 PRINT:CLEAR:GOTO 20 


U.S. Presidents 


Fourteenth. Let's see, that was Franklin Pierce. Cor- 
rect. The fourteenth president was Franklin Pierce. Let's 
try another. Thirty-fourth. John F. Kennedy. Wrong. The 
thirty-fourth president was Dwight D. Eisenhower. 

How many of the 40 U.S. presidents can you name? 
Bet not as many as you would like! 
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This program tests not only your knowledge of the 
name of each president and his number in rank, but also 
the spelling of his name. 

The more you take this test, the more you learn. 


Program Listing 


10 HOME 
80 PRINT"HOW MANY U.S. PRESIDENTS 
CAN YOU NAME" 
90 R=INT(80*(RND(1))) 
100 IF R<1 THEN 90 
110 IF INT(R/2)=R/2 THEN R=R+1 
120 FOR L=1 TOR 
130 READ SS 
140 NEXT L 
150 PRINT:PRINT 
160 PRINT"WHO WAS THE " 
170 PRINT SS 
180 PRINT"PRESIDENT OF THE UNITED 
STATES" 
190 READ C$ 
200 INPUT DS 
210 PRINT 
220 IF DS=CS THEN PRINT "CORRECT" 
:GOTO 240 
230 PRINT "WRONG" 
240 PRINT "THE "3SS;" PRESIDENT WAS "3C$ 
250 RESTORE 
260 PRINT:PRINT 
270 GOTO 90 
320 DATA FIRST,GEORGE WASHINGTON 
330 DATA SECOND,JOHN ADAMS 
340 DATA THIRD,THOMAS JEFFERSON 
350 DATA FOURTH, JAMES MADISON 
360 DATA FIFTH,JAMES MONROE 
370 DATA SIXTH,JOHN QUINCY ADAMS 
380 DATA SEVENTH,ANDREW JACKSON 
390 DATA EIGHTH,MARTIN VAN BUREN 
400 DATA NINTH,WILLIAM H. HARRISON 
410 DATA TENTH, JOHN TYLER 
420 DATA ELEVENTH, JAMES K. POLK 
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430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 


570 DATA 
580 DATA 
590 DATA 
600 DATA 
610 DATA 
620 DATA 
630 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 
700 DATA 
710 DATA 


TWELFTH, ZACHARY TAYLOR 
THIRTEENTH,MILLARD FILLMORE 
FOURTEENTH,FRANKLIN PIERCE 
FIFTEENTH, JAMES BUCHANAN 
SIXTEENTH, ABRAHAM LINCOLN 
SEVENTEENTH,ANDREW JOHNSON 
EIGHTEENTH,ULYSSES S. GRANT 
NINTEENTH,RUTHERFORD B. HAYES 
TWENTIETH, JAMES A. GARFIELD 
TWENTY-FIRST,CHESTER A. ARTHUR 
TWENTY-SECOND,GROVER CLEVELAND 
TWENTY-THIRD, BENJAMIN HARRISON 
TWENTY-FOURTH,GROVER CLEVELAND 
TWENTY-FIFTH,WILLIAM MCKINLEY 
TWENTY-SIXTH, THEODORE ROOSEVELT 
TWENTY-SEVENTH, WILLIAM H. TAFT 
TWENTY-EIGHTH,WOODROW WILSON 
TWENTY-NINTH, WARREN G. HARDING 
THIRTIETH,CALVIN COOLIDGE 
THIRTY-FIRST,HERBERT HOOVER 
THIRTY-SECOND,FRANKLIN D. ROOSEVELT 
THIRTY-THIRD,HARRY S. TRUMAN 
THIRTY-FOURTH, DWIGHT D. EISENHOWER 
THIRTY-FIFTH, JOHN F. KENNEDY 
THIRTY-SIXTH,LYNDON B. JOHNSON 
THIRTY-SEVENTH,RICHARD M. NIXON 
THIRTY-EIGHTH,GERALD R. FORD 
THIRTY-NINTH, JIMMY CARTER 
FOURTIETH,RONALD REAGAN 


Number Of Days In A Month 


Here’s a cute teacher for your elementary-age kids. 
This program displays the name of a month and asks how 
many days in that month. If the correct number of days is 
entered, the computer says “correct.” If an incorrect 
number of days is entered, the computer says “wrong.” In 
either case, the correct answer is displayed. The 
educational game can go on forever if needed. 
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Program Listing 


10 HOME 
20 DATA JANUARY, 31 
30 DATA FEBRUARY, 28 
40 DATA MARCH, 31 
50 DATA APRIL, 30 
60 DATA MAY, 31 
70 DATA JUNE, 30 
80 DATA JULY, 31 
90 DATA AUGUST, 31 
100 DATA SEPTEMBER, 30 
110 DATA OCTOBER, 3l 
120 DATA NOVEMBER, 30 
130 DATA DECEMBER, 31 
140 R=INT(100*(RND(1))) 
150 IF R>24 THEN GOTO 140 
160 IF INT(R/2)=R/2 THEN R=R-1 
170 FOR L=1 TO R 
180 READ §$ 
190 NEXT L 
200 PRINT "MONTH IS "35S 
210 READ CS 
220 INPUT "HOW MANY DAYS "3;D$ 
230 IF DS=CS THEN PRINT "CORRECT" 
:GOTO 300 
240 PRINT "WRONG" 
300 PRINT "NUMBER OF DAYS IS "3CS$ 
310 RESTORE 
320 PRINT 
330 GOTO 140 


Foreign Capitals 


Here’s a learning quiz we’ll bet you haven’t seen 
anywhere else. This program tests your knowledge of 
foreign countries. The more you play, the more you learn! 

You must tell the computer the correct name of the 
capital of the country it presents. And you must spell the 
name of that city correctly. 
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What is the capital of Egypt, Poland, Turkey, New 
Zealand, Bolivia or Afghanistan? It can be very tough! 

Want to change to different countries? Change the 
DATA lines 20 to 540. Be sure to put a comma between 
country and capital in each DATA line. 


Program Listing 


10 HOME 

20 DATA 

30 DATA 

40 DATA 

50 DATA 

60 DATA 

70 DATA 

80 DATA 

90 DATA 
100 DATA 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
160 DATA 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
210 DATA 
220 DATA 
230 DATA 
240 DATA 
250 DATA 
260 DATA 
270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 


AFGHANISTAN, KABUL 
ALBANIA, TIRANA 
ALGERIA, ALGIERS 
ARGENTINA, BUENOS AIRES 
AUSTRALIA, CANBERRA 
AUSTRIA, VIENNA 
BAHRAIN, MANAMA 
BANGLADESH, DACCA 
BELGIUM, BRUSSELS 
BOLIVIA,LA PAZ 
BRAZIL, BRASILIA 
BULGARIA, SOFIA 

BURMA, RANGOON 

CHILE, SANTIAGO 
COLOMBIA, BOGOTA 

CUBA, HAVANA 
CZECHOSLOVAKIA, PRAGUE 
DENMARK, COPENHAGEN 
EGYPT, CAIRO 

F INLAND, HELSINKI 
FRANCE, PARIS 

GERMANY EAST,EAST BERLIN 
GERMANY WEST, BONN 
GREECE, ATHENS 

HAITI, PORT-AU-PRINCE 
HUNGARY, BUDAPEST 
ICELAND, REYKJAVIK 
INDIA,NEW DELHI 

IRAN, TEHRAN 

ITALY, ROME 

JAPAN, TOKYO 
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DATA KUWAIT, KUWAIT 

DATA LIBYA, TRIPOLI 

DATA MEXICO,MEXICO CITY 
DATA NEPAL, KATHMANDU 
DATA NEW ZEALAND, WELLINGTON 
DATA NORWAY, OSLO 

DATA OMAN, MUSCAT 

DATA PERU,LIMA 

DATA POLAND, WARSAW 

DATA QATAR, DOHA 

DATA ROMANTA, BUCHAREST 
DATA SPAIN, MADRID 

DATA SUDAN, KHARTOUM 

DATA SWEDEN, STOCKHOLM 
DATA SWITZERLAND, BERN 
DATA TURKEY, ANKARA 

DATA U.S.S.R.,MOSCOW 
DATA UNITED KINGDOM, LONDON 
DATA VENEZUELA, CARACAS 
DATA YUGOSLAVIA, BELGRADE 
DATA ZAIRE, KINSHASA 

DATA ZAMBIA,LUSAKA 


PRINT"HOW MANY FOREIGN CAPITALS 
CAN YOU NAME ?" 
R=INT(106*(RND(1))) 

IF R<l THEN 560 

IF INT(R/2)=R/2 THEN R=R-1 

FOR L=1 TOR 

READ S$ 

NEXT L 

PRINT:PRINT 

PRINT"FOREIGN COUNTRY IS "3S$ 
READ C$ 

INPUT"WHAT IS THE CAPITAL "3;DS 
IF DS=CS THEN PRINT"CORRECT" 
:GOTO 680 

PRINT" WRONG" 

PRINT"CAPITAL IS "3;C$ 

RESTORE 


“PRINT :PRINT 


GOTO 560 


Weights & Measures 


How many inches in a centimeter? Ounces in a 


tablespoon? Cubic feet of firewood in a cord? Run this 
program and you'll not only test your existing knowledge 
of weights and measurements but learn more. 


To change the information in the quiz, change DATA 


in lines 20 to 510. Be sure to follow the wording format 
used here and put a comma between question and answer 
in each DATA line. 


Program Listing 


HOME 

DATA MILE IN FEET, 5280 

DATA MILE IN KILOMETERS,1. 609 
DATA NAUTICAL MILE IN STATUTE 
MILES,1.151 

DATA MILLIMETER IN INCHES, .03937 
DATA POINT(TYPOGRAPHY) IN 

INCHES, .013837 

DATA ROD IN YARDS,5.5 

DATA ACRE IN SQUARE YARDS, 4840 
DATA ACRE IN SQUARE FEET,43560 
DATA HECTARE IN ACRES,2.471 

DATA CENTIMETER IN INCHES, 0. 3937 
DATA SURVEYOR'S CHAIN IN FEET, 66 
DATA ENGINEER'S CHAIN IN FEET,100 
DATA FATHOM IN FEET,6 

DATA FOOT IN METERS, 0.3048 

DATA FURLONG IN FEET, 660 

DATA FURLONG IN YARDS,220 

DATA FURLONG IN METERS,201.168 
DATA HAND IN INCHES,4 

DATA INCH IN CENTIMETERS, 2.54 
DATA KILOMETER IN MILES,0.621 
DATA LEAGUE IN MILES,3 

DATA METER IN INCHES, 39. 37 

DATA METER IN YARDS,1.094 

DATA SQ. FOOT IN SQ. CENTIMETERS, 
929.030 

DATA SQ. METER IN SQ. YARDS,1.196 
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270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DATA 
360 DATA 
370 DATA 
380 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 


SQUARE MILE IN HECTARES,258.999 
SQ. YARD IN SQUARE METERS, 0.836 
BUSHEL IN CUBIC INCHES,2150.42 
CORD FIREWOOD IN CUBIC FEET,128 
CUBIC FOOT IN GALLONS,7.481 

CUP IN FLUID OUNCES,8 

CUP LIQUID IN PINTS,0.5 

U.S. GALLON IN LITERS,3.785 
LITER LIQUID IN QUARTS,1.057 
FLUID OUNCE IN MILLILITERS,29.574 
PECK IN LITERS,8.810 

DRY PINT IN CUBIC INCHES,33.6 
PINT LIQUID IN LITERS,0O.473 

DRY QUART IN CUBIC INCHES,67.201 
QUART LIQUID IN LITERS,0.946 
TABLESPOON IN TEASPOONS, 3 
TABLESPOON IN FLUID OUNCES,0.5 
TEASPOON IN TABLESPOONS, 0. 3333333 
GRAM IN OUNCES,0.035 

KILOGRAM IN POUNDS,2.205 

OUNCE IN GRAMS,28. 350 
PENNYWEIGHT IN GRAMS,1.555 

POUND IN GRAMS,453.59237 

TON(NET OR SHORT) IN POUNDS,2000 
TON(METRIC) IN POUNDS, 2204. 623 


520 PRINT"HOW MANY EQUIVALENTS OF" 
530 PRINT"WEIGHTS AND MEASURES DO YOU 


KNOW 


an 


540 R=INT(100*(RND(1))) 

550 IF R<l THEN 540 

560 IF INT(R/2)=R/2 THEN R=R-1 
570 FOR L=1 TO R 


580 READ 
590 NEXT 


SS 
L 


600 PRINT:PRINT 
610 PRINT"WHAT IS THE EQUIVALENT OF 1" 


3SS 
620 READ 


cS 


630 INPUT DS 


640 PRINT 


650 IF DS=C$ THEN PRINT "CORRECT" 
:GOTO 670 


660 PRINT 
670 PRINT"THE CORRECT ANSWER IS "5CS$ 


"WRONG" 


680 RESTORE 
690 PRINT:PRINT 
700 GOTO 540 


State Geographic Centers 


This mind bender tests your knowledge of 
geographic locations of cities and towns in the United 
States. These are special places since, in each case, they 
are the town nearest to the geographic center of its state. 

In other words, Columbus happens to be almost ex- 
actly in the center of Ohio. But which state has Challis at 
its center? Or Lewistown? Or Oklahoma City? (Well, some 
may be obvious!) 

You not only learn a lot from running this program 
but you have a barrel of fun. Talk about trivia! 


Program Listing 


10 HOME 
20 DATA 
30 DATA 
40 DATA 
90 DATA 
60 DATA 
70 DATA 
80 DATA 
90 DATA 
100 DATA 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
160 DATA 
170 DATA 
180 DATA 
190 DATA 


CLANTON, ALABAMA 

MT. MCKINLEY, ALASKA 
PRESCOTT, ARIZONA 
LITTLE ROCK, ARKANSAS 
MADERA, CALIFORNIA 
PIKES PEAK,COLORADO 
EAST BERLIN, CONNECTICUT 
DOVER, DELAWARE 
BROOKSVILLE,FLORIDA 
MACON, GEORGIA 

MAUI ISLAND, HAWAII 
CHALLIS, IDAHO 
SPRINGFIELD, ILLINOIS 
INDIANAPOLIS, INDIANA 
AMES, IOWA 

CREAT BEND,KANSAS 
LEBANON, KENTUCKY 
MARKSVILLE,LOUISIANA 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DOVER-FOXCROFT ,MAINE 
DAVIDSONVILLE, MARYLAND 
WORCESTER, MASSACHUSETTS 
CADILLAC, MICHIGAN 
BRAINERD,MINNESOTA 
CARTHAGE, MISSISSIPPI 
JEFFERSON CITY,MISSOURI 
LEWISTOWN, MONTANA 
BROKEN BOW,NEBRASKA 
AUSTIN, NEVADA 
ASHLAND, NEW HAMPSHIRE 
TRENTON,NEW JERSEY 
WILLARD, NEW MEXICO 
ONEIDA,NEW YORK 
SANFORD,NORTH CAROLINA 
MCCLUSKY,NORTH DAKOTA 
COLUMBUS, OHIO 

OKLAHOMA CITY, OKLAHOMA 
PRINEVILLE, OREGON 
BELLEFONTE, PENNSYLVANIA 
CROMPTON,RHODE ISLAND 
COLUMBIA, SOUTH CAROLINA 
PIERRE, SOUTH DAKOTA 
MURFREESBORO, TENNESSEE 
BRADY, TEXAS 

MANTI, UTAH 

ROXBURY, VERMONT 
BUCKINGHAM, VIRGINIA 
WENATCHEE, WASHINGTON 
SUTTON, WEST VIRGINIA 
MARSHFIELD, WISCONSIN 
LANDER, WYOMING 


PRINT"FOR HOW MANY STATES" 


PRINT"CAN YOU NAME THE GEOGRAPHICAL 


CENTER ?" 
R=INT(100*(RND(1))) 

IF R<l THEN 540 

IF INT(R/2)=R/2 THEN R=R-1 
FOR L=1 TO R 


READ 
NEXT 


S$ 
L 


PRINT :PRINT 


610 PRINT" WHICH STATE HAS ITS" 

620 PRINT"GEOGRAPHIC CENTER NEAR" 

630 PRINT SS 

640 READ CS 

650 INPUT DS 

660 IF DS=CS THEN PRINT:PRINT"CORRECT" 
:GOTO 680 

670 PRINT:PRINT"WRONG" 

680 PRINT"THE STATE IS "3C$ 

690 RESTORE 

700 PRINT:PRINT 

710 GOTO 540 


Alphabetizing Test Evaluation 


Here’s a more elaborate exam-score evaluation. As set 
here, you may enter scores for up to 50 students. The 
computer asks for last name, first name, and score 
number for each student. 

The machine sorts students so it can present an 
alphabetized list at the end. As you will note in the sample 
run, the computer can tell the difference between people 
with the same last names, or with the same first names. If 
two or more students have the same last and the same 
first name, the computer sorts them by grade score. 

If you are using a printer, you'll be able to make a per- 
manent record of your fully-alphabetized list of names 
and scores. 

You can change the total number of students in the 
group by changing the number 50 in lines 1010 and 1425 
and the number 49 in line 1330. 

Again we assume zero to 59, F; 60-69, D; 70-79, C; 80-89, 
B; and 90-100, A. You can change those ranges in lines 
1110-1150. 


Program Listing 


1000 HOME:CLEAR 

1010 DIM MS(50) 

1020 FOR L=1 TO 50 

1030 INPUT "LAST NAME: ";PS 
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1040 
1050 
1060 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1300 
1310 
1320 
1330 
1340 
1350 


1360 


1370. 


1400 


1400 
1410 
1420 
1425 
1430 
1435 
1440 
1450 
1455 
1460 
1470 
1480 
1490 


50 


IF PS=""THEN 1300 

INPUT "FIRST NAME. "3Q5S 
INPUT "GRADE: "3;GS 

X=VAL(GS) 

IF X<60 THEN F=F+1:GOTO 1160 
IF X<70 THEN D=D+1:GOTO 1160 
IF X<80 THEN C=C+1:GOTO 1160 
IF X<90 THEN B=8+1:GOTO 1160 
A=A+1 

Y=V +X 

Z=Z+1 

IF Z=1 THEN J=X:K=X 

IF X<3 THEN J=X 

IF X>K THEN K=X 

I=I+X 

H=1I/Z:MM=39+((K-J)/2) 
MS(L)=PS+" "4054+" "4+"GRADE: "4G65$ 
NEXT L 

HOME 


PRINT "SORTING" 

T=9 

FOR L=1 TO 49 

IF MS(L)<=MS(L+1) THEN 1360 
ES=M$(L):MS(L)=MS(L41) :M$(L41 )=ES$ 
:T=l 

NEXT L 

IF T=l1 THEN 1320 

HOME 


CLS 

PRINT "LAST NAME/FIRST NAME/GRADE" 
PRINT 

FOR L=1 TO 50 

IF MS(L)<>"" THEN PRINT MS(L) 
NEXT L 

PRINT 

PRINT"FOR STATISTICS, PRESS 5S" 
PRINT"TO QUIT, PRESS Q" 

GET AAS 

IF AAS="S" THEN 1500 

IF AAS="Q" THEN 1800 

GOTO 1460 


1500 HOME 

1510 PRINT "TEST SCORE STATISTICS" 
1520 PRINT 

1530 PRINT "SCORES RANGE "393" TO "3k 
1540 PRINT "MID-RANGE SCORE IS "3;MM 
1550 PRINT "AVERAGE SCORE IS "sH 

1560 PRINT "TOTALS FOR EACH LETTER GRADE:" 
1570 PRINT As" A" 

1580 PRINT B;" B" 

1590 PRINT C3" Cc" 

1600 PRINT D;" D" 

1610 PRINT Fs" F" 

1620 PRINT "A TOTAL OF "s3Zs3" SCORES" 
1630 PRINT 

1640 PRINT "TO DO ANOTHER SET, PRESS A" 
1650 PRINT "TO STOP, PRESS S" 

1660 GET BBS 

1680 IF BBS="A" THEN 1000 

1690 IF BBS="S" THEN 1800 

1700 GOTO 1660 

1800 HOME 

1810 PRINT " THANK YOU" 

1820 GOTO 1820 


Sample Run 
RUN RETURN 


LAST NAME: 
SMITH RETURN 
FIRST NAME: 
ALAN RETURN 
GRADE: 

87 RETURN 


LAST NAME: 
JONES RETURN 
FIRST NAME: 
HELEN RETURN 
GRADE: 

62 RETURN 
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LAST NAME: 
FUDD RETURN 
FIRST NAME: 
ELMER RETURN 
GRADE: 

97 RETURN 


LAST NAME: 
MARTIN RETURN 
FIRST NAME: 
ALAN RETURN 
GRADE : 

72 RETURN 


LAST NAME: 
SMITH RETURN 
FIRST NAME: 
BARRY RETURN 


LAST NAME/FIRST NAME/GRADE 


GRADE: 

55 RETURN 

LAST NAME: 
JONES RETURN 
FIRST NAME: 
HELEN RETURN 
GRADE: 

48 RETURN 

LAST NAME: 
RETURN 

SORTING 

FUDD ELMER 
JONES HELEN 
JONES HELEN 
MARTIN ALAN 
SMITH ALAN 
SMITH BARRY 


GRADE :97 
GRADE :48 
GRADE :62 
GRADE:79 
GRADE :87 
GRADE: 55 


FOR STATISTICS, PRESS S 


TO QUIT, PRESS Q 


S 
52 


TEST SCORE STATISTICS 
SCORES RANGE 48 TO 97 
MID-RANGE SCORE IS 72.5 
AVERAGE SCORE IS 71.3333334 


TOTALS FOR EACH LETTER GRADE: 


>N eee 
N19 OWD > 


TOTAL OF 6 SCORES 


TO DO ANOTHER SET, PRESS A 


TO STOP, 
S 


THANK YOU 


PRESS 5S 


Lakes of the World 


Sure, Lake of the Woods and the Great Salt Lake are 

in North America. But where is Lake Van, Lake Onega, 

ake Reindeer, or Lake Nyasa? 

The computer asks you which continent is the loca- 

tion of a major large lake. To change the lakes, change 

DATA in lines 20 to 530. Be sure to put question before 
answer in each DATA line and separate with a comma. 


Program Listing 


10 HOME 
20 DATA 
30. DATA 
40 DATA 
50 DATA 
60 DATA 
70 DATA 
80 DATA 
90 DATA 
100 DATA 


CASPIAN SEA, ASIA/EUROPE 
SUPERIOR,NORTH AMERICA 
VICTORIA, AFRICA 

ARAL SEA,ASIA 
HURON,NORTH AMERICA 
MICHIGAN,NORTH AMERICA 
TANGANYIKA, AFRICA 
BAYKAL, ASIA 

GREAT BEAR,NORTH AMERICA 
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NYASA (MALAWI), AFRICA 
GREAT SLAVE,NORTH AMERICA 
CHAD, AFRICA 

ERIE,NORTH AMERICA 
WINNIPEG,NORTH AMERICA 
ONTARIO,NORTH AMERICA 
LADOGA, EUROPE 

BALKHASH, ASIA 
MARACAIBO, SOUTH AMERICA 
BANGWEULU, AFRICA 
TUNGTING, ASIA 

ONEGA, EUROPE 

EYRE, AUSTRALIA 
TITICACA,SOUTH AMERICA 
NICARAGUA, NORTH AMERICA 
ATHABASCA,NORTH AMERICA 
REINDEER,NORTH AMERICA 
TONLE SAP,ASIA 

TURKANA (RUDOLF ),AFRICA 
ISSYK-KUL' , ASIA 

URMIA, ASIA 

TORRENS, AUSTRALIA 
VANERN, EUROPE 
WINNIPEGOSIS,NORTH AMERICA 
ALBERT, AFRICA 

KARIBA, AFRICA 
NETTILLING,NORTH AMERICA 
CHANY, ASIA 
NIPIGON,NORTH AMERICA 
GAIRDNER, AUSTRALIA 
MWERU, AFRICA 
MANITOBA,NORTH AMERICA 
TAYMYR,ASIA 

KYOGA, AFRICA 

KHANKA, ASIA 

LAKE OF THE WOODS,NORTH AMERICA 
PEIPUS, EUROPE 

KOKO NOR,ASIA 
NASSER-NUBIA, AFRICA 
DUBAWNT,NORTH AMERICA 
VAN, ASIA 
WOLLASTON,NORTH AMERICA 


DATA GREAT SALT LAKE,NORTH AMERICA 
PRINT"HOW MANY FAMOUS LAKES OF THE 
WORLD CAN YOU LOCATE ?" 
R=INT(1L04*(RND(1))) 

IF R<l THEN 550 

IF INT(R/2)=R/2 THEN R=R-1 

FOR L=1 TOR 

READ S$ 

NEXT L 

PRINT :PRINT 

PRINT SSs;" IS A LARGE LAKE" 

READ C$ 

INPUT"ON WHAT CONTINENT OR CONTINENTS 
IS IT LOCATED";DS 

IF DS=CS THEN PRINT"CORRECT" 

:GOTO 670 

PRINT" WRONG" 

PRINT"THE CONTINENT IS "3CS$ 
RESTORE 

PRINT:PRINT 

GOTO 550 


Deserts of the World 


If lakes are too wet for you, how about something 


more in the dry line? Deserts! 


There are many major ones around the world. You 


may have heard of the Sahara or Death Valley. But where 
are they? On what continents? And where is Atacama, 
Gibson, Nefud or Sechura? 


To change the items, modify DATA lines 20 to 280. Be 


sure to put a comma between question and answer in 
each DATA line. 


Program Listing 


10 HOME 

20 DATA ARABIAN,AFRICA 

30 DATA ATACAMA, SOUTH AMERICA 
40 DATA COLORADO,NORTH AMERICA 
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DATA DASHT-I-KAVIR,ASIA 
DATA DASHT-I-LUT,ASIA 

DATA DEATH VALLEY,NORTH AMERICA 
DATA GIBSON, AUSTRALIA 

DATA GOBI,ASIA 

DATA GREAT SALT LAKE,NORTH AMERICA 
DATA GREAT SANDY,AUSTRALIA 
DATA GREAT VICTORIA, AUSTRALIA 
DATA KALAHARI, AFRICA 

DATA KARA-KUM, ASIA 

DATA KYZYL-KUM, ASIA 

DATA MOJAVE,NORTH AMERICA 
DATA NAMIB, AFRICA 

DATA NEFUD (AN NAFUD),ASIA 
DATA NEGEV,ASIA 

DATA NUBIAN, AFRICA 

DATA RUB AL KHALI,ASIA 

DATA SAHARA, AFRICA 

DATA SECHURA, SOUTH AMERICA 
DATA SIMPSON, AUSTRALIA 

DATA SYRIAN (EL HAMAD),ASIA 
DATA TAKLAMAKAN, ASIA 

DATA THAR (GREAT INDIAN),ASIA 
DATA VIZCAINO,NORTH AMERICA 
PRINT"HOW MANY DESERTS OF THE WORLD 
CAN YOU LOCATE ?" 
R=INT(54*(RND(1))) 

IF R<l THEN 300 

IF INT(R/2)=R/2 THEN R=R-1 
FOR L=1 TO R 

READ S$ 

NEXT L 

PRINT:PRINT 

PRINT SS 

PRINT"IS ONE OF" 

PRINT" WORLD'S GREAT DESERTS" 
READ CS 

PRINT:PRINT"ON WHAT CONTINENT" 
INPUT"IS IT LOCATED";DS$ 

IF DS=CS THEN PRINT"CORRECT" 
:GOTO 450 

PRINT" WRONG" 


450 PRINT"CONTINENT IS "3C$ 
460 RESTORE 

470 PRINT:PRINT 

480 GOTO 300 


Volcanoes of the World 


In what country does the lava flow? Where is the ac- 
tive volcano we know as Mauna Loa? Lascar? Fogo? 
Torbert? 

The computer names a volcano and you name the 
country, except in the one case in Antarctica which is a 
continent. 

To change to other volcanoes, change DATA lines 20 
to 280. Remember the commas. 


Program Listing 


10 HOME 
20 DATA KILIMANJARO, TANZANIA 
30 DATA EREBUS, ANTARCTICA 
40 DATA KLYUCHEVSKAYA,USSR 
50 DATA MAUNA KEA,USA 
60 DATA ETNA,ITALY 
70 DATA POPOCATEPETL,MEXICO 
80 DATA GUALLATIRI,CHILE 
90 DATA CAMEROON MT.,CAMEROON 
100 DATA KERINTII, INDONESIA 
110 DATA MAUNA LOA,USA 
120 DATA COLIMA,MEXICA 
130 DATA TAJUMULCO,GUATEMALA 
140 DATA LASCAR,CHILE 
150 DATA FUII, JAPAN 
160 DATA WRANGELL,USA 
170 DATA COTOPAXI, ECUADOR 
180 DATA NYIRAGONGO, CONGO 
190 DATA TOLBACHIK,USSR 
200 DATA TORBERT,USA 
210 DATA SPURR,USA 
220 DATA LASSEN,USA 
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230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


450 
460 
470 
480 
490 


DATA TACANA, GUATEMALA 

DATA IRAZU,COSTA RICA 

DATA MISTI, PERU 

DATA PURACE,COLOMBIA 

DATA EL TEIDE,CANARY ISLANDS 
DATA FOGO,CAPE VERDE ISLANDS 
PRINT"HOW MANY VOLCANOES OF THE WORLD" 
PRINT"CAN YOU LOCATE ?* 
R=INT(54*(RND(1))) 

IF R<l THEN 310 

IF INT(R/2)=R/2 THEN R=R-1 
FOR L=1 TOR 

READ S$ 

NEXT L 

PRINT :PRINT 

PRINT SS 

PRINT"IS ONE OF THE" 
PRINT"WORLD'!S HIGHEST VOLCANOES" 
READ C$ 

PRINT" IN WHAT COUNTRY" 
INPUT"IS IT LOCATED";DS$ 

IF DS=CS THEN PRINT"CORRECT" 
:GOTO 460 

PRINT:PRINT" WRONG" 
PRINT"COUNTRY IS "3C$ 
RESTORE 

PRINT :PRINT 

GOTO 310 


Chemistry: 


Elements and their Symbols 


Here’s a great drill for the chemistry student. The 


computer displays one of the chemical symbols and you 
must reply with the correct name of the element. And it 
must be spelled correctly! 


Do you recognize Au, Es, Pr, Tc, or Yb? Then you 


need this experience! 
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Program Listing 


HOME 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


AC, ACTINIUM 
AL, ALUMINUM 
AM, AMERICIUM 
SB, ANTIMONY 
AR, ARGON 

AS, ARSENIC 
AT, ASTATINE 
BA, BARIUM 

BK, BERKELIUM 
BE,BERYLLIUM 
BI,BISMUTH 

B, BORON 

BR, BROMINE 
CD,CADMIUM 
CA,CALCIUM 

CF ,CALIFORNIUM 
C, CARBON 
CE,CERIUM 
CS,CESIUM 
CL,CHLORINE 
CR,CHROMIUM 
CO,COBALT 
CU,COPPER 
CM,CURIUM 

DY, DYSPROSIUM 
ES, EINSTEINIUM 
ER, ERBIUM 

EU, EUROPIUM 
FM,FERMIUM 
F,FLUORINE 
FR,FRANCIUM 
GD, GADOLINIUM 
GA,GALLIUM 
GE,GERMANIUM 
AU,GOLD 

HF , HAFNIUM 
HE,HELIUM 

HO, HOLMIUM 

H, HYDROGEN 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DARA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


IN, INDIUM 

I, IODINE 

IR, IRIDIUM 
FE, IRON 

KR, KRYPTON 
LA, LANTHANUM 
LR,LAWRENCIUM 
PB,LEAD 
LI,LITHIUM 
LU,LUTETIUM 
MG,MAGNESIUM 
MN ,MANGANESE 
MD,MENDELEVIUM 
HG, MERCURY 
MO,MOLYBDENUM 
ND,NEODYMIUM 
NE,NEON 

NP NE PTUNIUM 
NI,NICKEL 
NB,NIOBIUM 
N,NITROGEN 
NO,NOBELIUM 
0S,OSMIUM 

0, OXYGEN 
PD,PALLADIUM 
P , PHOSPHORUS 
PT, PLATINUM 
PU, PLUTONIUM 
PO,POLONIUM 
K,POTASSIUM 
PR,PRASEODYMIUM 
PM, PROMETHIUM 
PA,PROTACTINIUM 
RA,RADIUM 
RN,RADON 
RE,RHENIUM 
RH,RHODIUM 
RB,RUBIDIUM 
RU,RUTHENIUM 
SM, SAMARLUM 
SC, SCANDIUM 
SE, SELENIUM 


DATA SI,SILICON 

DATA AG,SILVER 

DATA NA, SODIUM 

DATA SR,STRONTIUM 

DATA S,SULFUR 

DATA TA, TANTALUM 

DATA TC,TECHNETIUM 

DATA TE,TELLURIUM 

DATA TB, TERBIUM 

DATA TL, THALLIUM 

DATA TH, THORIUM 

DATA TM, THULIUM 

DATA SN,TIN 

DATA TI,TITANIUM 

DATA W, TUNGSTEN 

DATA U,URANIUM 

DATA V,VANADIUM 

DATA XE, XENON 

DATA YB, YTTERBIUM 

DATA Y, YTTRIUM 

DATA ZN,ZINC 

DATA ZR,ZIRCONIUM 
PRINT"FOR HOW MANY CHEMICAL ELEMENTS" 
PRINT"DO YOU KNOW THE SYMBOLS ?" 
R=INT(206*(RND(1))) 

IF R<l THEN 1070 

IF INT(R/2)=R/2 THEN R=R-1 
FOR L=1 TO R 

READ S$ 

NEXT L 

PRINT :PRINT 

PRINT SS;" IS THE SYMBOL" 
PRINT "WHAT IS THE ELEMENT" 
READ CS 

INPUT DS 

PRINT 

IF DS=CS THEN PRINT"CORRECT" 
:GOTO 1210 

PRINT"WRONG" 

PRINT" THE ELEMENT IS "C$ 
RESTORE 

PRINT:PRINT 

GOTO 1070 
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Chemistry: 


Periodic Table of Elements 


How many atomic numbers do you know? What is 


the atomic number of gold? Silver? Oxygen? Uranium? 
Neodymium? Ytterbium? 

This program causes the computer to drill you mer- 
cilessly until you know every last one! 


Program Listing 


10 


HOME 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


ACTINIUM, 89 
ALUMINUM, 13 
AMERICIUM, 95 
ANTIMONY, 51 
ARGON,18 
ARSENIC, 33 
ASTATINE, 85 
BARIUM, 56 
BERKELIUM, 97 
BERYLLIUM,4 
BISMUTH, 83 
BORON, 5 
BROMINE, 35 
CADMIUM, 48 
CALCIUM, 20 
CALIFORNIUM, 98 
CARBON, 6 
CERIUM, 58 
CESIUM,55 
CHLORINE,17 
CHROMIUM, 24 
COBALT, 27 
COPPER, 29 
CURIUM, 96 
DYSPROSIUM, 66 
EINSTEINIUM,99 
ERBIUM,68 
FUROPIUM, 63 
FERMIUM,100 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


FLUORINE,9 
FRANCIUM, 87 
GADOLINIUM, 64 
GALLIUM, 31 
GERMANIUM, 32 
GOLD, 79 
HAFNIUM, 2 
HELIUM, 2 
HOLMIUM, 67 
HYDROGEN, 1 
INDIUM, 49 
IODINE, 53 
IRIDIUM, 77 
IRON, 26 
KRYPTON, 36 
LANTHANUM, 57 
LAWRENCIUM, 103 
LEAD, 82 
LITHIUM, 3 
LUTETIUM, 71 
MAGNESIUM, 12 
MANGANESE, 25 
MENDELEVIUM,101 
MERCURY, 80 
MOLYBDENUM, 42 
NEODYMIUM, 60 
NEON,10 
NEPTUNIUM, 93 
NICKEL, 28 
NIOBIUM, 41 
NITROGEN, 7 
NOBELIUM,102 
OSMIUM, 76 
OXYGEN, 8 
PALLADIUM, 46 
PHOSPHORUS,15 
PLATINUM, 78 
PLUTONIUM, 94 
POLONIUM, 84 
POTASSIUM,19 
PRASEODYMIUM, 59 
PROMETHIUM, 61 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PRINT" IN THE PERIODIC TABLE OF 


PROTACTINIUM, 91 
RADIUM, 88 
RADON, 86 
RHENIUM,75 
RHODIUM, 45 
RUBIDIUM, 37 
RUTHENIUM, 44 
SAMARIUM, 62 
SCANDIUM, 21 
SELENIUM, 34 
SILICON,14 
SILVER, 47 
SODIUM,11 
STRONTIUM, 38 
SULFUR,16 
TANTALUM, 73 
TECHNETIUM, 43 
TELLURIUM, 52 
TERBIUM,65 
THALLIUM, 81 
THORIUM, 90 
THULIUM, 69 
TIN, 50 
TITANIUM, 22 
TUNGSTEN, 74 
URANIUM, 92 
VANADIUM, 23 
XENON, 54 
YTTERBIUM, 70 
YTTRIUM, 39 
ZINC, 30 
ZIRCONIUM, 40 


ELEMENTS" 


PRINT"HOW MANY ATOMIC NUMBERS DO 


YOU KNOW ?" 
R=INT(206*(RND(1L))) 
IF R<l THEN 1070 


IF INT(R/2)=R/2 THEN R=R-1 


FOR L=1 TO R 


READ 


SS 


1120 NEXT L 

1130 PRINT:PRINT 

1140 PRINT"WHAT IS THE" 

1150 PRINT"ATOMIC NUMBER OF" 

1160 PRINT S$ 

1170 READ C$ 

1180 INPUT DS 

1190 PRINT 

1200 IF DS=CS THEN PRINT"CORRECT" 
:GOTO 1220 

1210 PRINT" WRONG" 

1220 PRINT CS;"IS THE ATOMIC NUMBER FOR " 
°SS 

1230 RESTORE 

1240 PRINT:PRINT 

1250 GOTO 1070 
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Programs for the Home 


Interest On Money 


Now you can analyze the potential of your investments. 
Whether they be savings accounts or other kinds of 
interest-bearing investments, the computer will find the 
money you need now to meet specific future goals. Or 
money to be realized later from specific investment levels 
today. 

The choices include simple interest and compound 
interest. You select simple interest or the deposit 
doubler feature. 

In deposit doubler, you can estimate how long it will 
take your money to double in value at a specific interest 
rate. You tell the computer the interest rate and it will tell 
you how long for money to double. 


Program Listing 


10 HOME:CLEAR:PRINT CHRS(7) 
20 MS="INTEREST ON MONEY" 
30 LM=LEN(MS) 
40 LT=M+4 
50 FOR L=1 TO LT 
60 ASS=ASS+"*" 
70 NEXT L 
80 P=(40-LT)/2 
90 HOME 
100 PRINT TAB(P) ASS 
110 PRINT TAB(P) "* "sMSs" ¥" 
120 PRINT TAB(P) ASS 
130 FOR L=1 TO 9:PRINT:NEXT L 


140 PRINT TAB(9)"PRESS ANY KEY TO START" 


145 FOR L=l TO 9:PRINT:NEXT L 
150 GET KYS 

160 HOME:PRINT CHRS(7) 

170 PRINT"DO YOU WANT" 


180 PRINT"SIMPLE OR COMPOUND INTEREST ?" 


190 PRINT:PRINT"PRESS S OR C" 
200 A=PEEK(-16384):POKE -16368,9 
210 IF A<195 OR A>211 THEN 200 
220 IF A=211 THEN 250 

230 IF A=195 THEN 620 


GOTO 200 
HOME:PRINT CHRS(7) 

PRINT"FOR" :PRINT"MONEY PER YEAR", 
"PRESS Y" 

PRINT" DEPOSIT DOUBLER","PRESS D" 
A=PEEK(-16384):POKE -16368, 6 

:IF A<128 THEN 280 

IF A=196 THEN 500 

IF A=217 THEN 320 

GOTO 280 

HOME:PRINT CHRS(7) 

INPUT"PRESENT VALUE $"3PV 
INPUT"ANNUAL INTEREST PERCENT 
RATE "3AI 

INPUT"NUMBER OF YEARS "sNY 
ID=.O0L*AI:TI=PV*ID*¥NY:BS=" SIMPLE " 
HOME:PRINT CHRS(7) 

PRINT'AT "sAT3"%"3BSs" INTEREST:" 
PRINT:PRINT"SAVINGS AT START" 
BS=" TOTALS " 

PRINT BS;"S"3PV 

PRINT"AFTER "sNY3" YEARS, INTEREST" 
PRINTBSs"S"sTI 

PL=PV4TI 

PRINT"AFTER "sNY3" YEARS, SAVINGS" 
PRINT BS3"S"s3 PL 

GOTO 540 

HOME:PRINT CHRS(7) 

INPUT"ANNUAL INTEREST PERCENT RATE " 
sAL:IF AI=@ THEN 510 

YR=72/AI 

PRINT"MONEY DOUBLES IN APPROX. " 
sYR;" YEARS" 

FOR L=1 TO 9:PRINT:NEXT L 
PRINT"FOR MORE","PRESS M" 
PRINT"TO QUIT","PRESS Q" 
A=PEEK(-16384):POKE -16368,9 

IF A<128 THEN 570 

IF A=205 THEN CLEAR:GOTO 160 

IF A=209 THEN 1200 

GOTO 570 

HOME:PRINT CHRS(7) 


69 


630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 


740 
750 


760 
800 
810 
820 
830 
840 
850 
860 
870 
880 
900 
910 
920 
930 
940 
950 


960 
1000 
1010 
1020 


1030 
1040 
1050 


PRINT"WHICH DO YOU WANT TO COMPUTE:" 


PRINT"PRESENT VALUE","PRESS P" 


PRINT"FUTURE VALUE","PRESS F" 
A=PEEK(-16384):POKE -16368,9 
IF A<128 THEN 660 

IF A=208 THEN 710 

IF A=198 THEN 800 

GOTO 660 

HOME:PRINT CHRS(7) 


INPUT"DESIRED FUTURE VALUE $"; 


INPUT"ANNUAL INTEREST PERCENT 
3;Al 

INPUT"NUMBER OF YEARS "3NY 
sIF NY=@ THEN 740 
ID=.01*AI:PV=FV/(1+1D) ANY 
sTI=FV-PV:BS=" COMPOUND " 
GOTO 370 

HOME:PRINT CHRS(7) 
PRINT"COMPOUNDING CHOICES:" 
PRINT:PRINT"ANNUAL","PRESS A" 
PRINT" QUARTERLY", "PRESS Q" 
A=PEEK(-16384):POKE -16368,6 
IF A<128 THEN 840 

IF A=193 THEN 900 

IF A=209 THEN 1000 

GOTO 840 

HOME:PRINT CHRS(7) 
INPUT"PRESENT SAVINGS BALANCE 
INPUT" ANNUAL INTEREST PERCENT 
INPUT"NUMBER OF YEARS "3NY 

IF NY=@ THEN 930 
ID=.01*AI:FV=PV*(1+ID) ANY 
>TI=FV-PV:BS=" COMPOUND " 
GOTO 370 

HOME:PRINT CHRS$(7) 
INPUT"PRESENT SAVINGS BALANCE 
INPUT"ANNUAL INTEREST PERCENT 
3;Al 

INPUT"NUMBER OF YEARS "3NY 

IF NY=@ THEN 1030 


FV 
RATE " 


"SPV 
RATE "3A 


"SPV 
RATE " 


QR=4*NY:ID=.0025*AI:FV=PV*(1+ID) AQR 
:TI=FV-PV:BS$=" QUARTERLY COMPOUNDED " 
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1060 GOTO 370 
1200 HOME:PRINT CHRS(7) 

1210 FOR L=1 TO 12:PRINT:NEXT L 
1220 PRINT TAB(15)"THANK YOU" 


Sample Run 


INTEREST ON MONEY 
PRESS ANY KEY TO START 


H 


DO YOU WANT 
SIMPLE OR COMPOUND INTEREST ? 


PRESS S OR C 
C 


WHICH DO YOU WANT TO COMPUTE: 
PRESENT VALUE PRESS P 


FUTURE VALUE PRESS F 
F 

COMPOUNDING CHOICES: 
ANNUAL PRESS A 
QUARTERLY PRESS Q 
Q 

PRESENT SAVINGS BALANCE: 
1000 RETURN 
ANNUAL INTEREST RATE: 

10 RETURN 
NUMBER OF YEARS: 

10 RETURN 


AT 10% QUARTERLY COMPOUNDED INTEREST: 


SAVINGS AT START 
TOTALS $1000 


AFTER 10 YEARS, INTEREST 
TOTALS §1685.06387 
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AFTER 10 YEARS, SAVINGS 
TOTALS $2685.06387 


FOR MORE PRESS M 
TO QUIT PRESS Q 


Club Member List 


Now you can keep the names of the members of your 
club, class, office, or other organization in properly sorted 
order with this easy to key-in-and-use program. 

It causes the Apple computer to store and sort your 
membership list, and display it alphabetically. 

The program accepts up to 100 names and sorts them 
into alphabetical order. The size of the list is controlled by 
the DIM statement in line 20. 

Note: the screen goes blank while sorting so you must 
wait. The more names to sort, the longer it takes. If you wish 
you can change names to something other than names of 
people, such as items, products, units, etc. 


Program Listing 


10 HOME 

20 DIM MS$(100) 

30 FOR L=1 TO 100 

40 INPUT "NAME: "sMS(L) 


70 T=9 
80 FOR L=1 TO 99 
90 IF MS(L)<=MS(L+1) THEN 110 
100 ES=MS(L):MS(L)=MS$(L41):MS(L+1 )=E$ 
:T=l 
110 NEXT L 
120 IF T=l THEN 70 
130 FOR L=l1 TO 100 
140 IF MS(L)<>"" THEN PRINT MS(L) 
150 NEXT L 


Sample Run 


RUN 

NAME 

SMITH ALBERT 1234 MAIN ST NEW YORK NY 10006 
NAME 

JONES RONALD 99 ORANGE CT SONOMA CA 98765 
NAME 

BROWN EDWARD 456 44TH ST AKRON OH 45678 
NAME 

GARDNER EDNA 8 FLGWER AVE ALTOONA PA 16601 
NAME 

X 


BROWN EDWARD 456 44TH ST AKRON OH 45678 
GARDNER EDNA 8 FLOWER AVE ALTOONA PA 16601 
JONES RONALD 99 ORANGE CT SONOMA CA 98765 
SMITH ALBERT 1234 MAIN ST NEW YORK NY 10006 
X 


Electric Bill Analysis 


Confused by your electric bill? Think you’re being 
stung? Can’t figure when you used all that juice? Now you 
can analyze your bills for a one-year period and see where 
you are draining the local utility. 

The computer will report annual totals, monthly 
averages of kilowatt hours used, and the cost of those 
kilowatts. Most folks receive an electric bill every other 
month and the computer assumes that’s the case. It 
counts on two months of service per bill. If you receive 
monthly bills and would like to analyze six months’ worth, 
change only the number 2 in line 110 to a 1. If, on the other 
hand, you want to analyze 12 monthly bills, also change to 
12 the number 6 in lines 20, 30, 280, 310, 340, 370, 400, 430, 
460, 490, 520, 550, 580, and 610. Also change the word 
“bimonthly” in line 750. 

You can give the computer information from your elec- 
tric bills in any monthly order. The program sorts the 
monthly bills into chronological order within one year. Be 
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sure to spell out fully and correctly the names of the bill- 
ing months. 


Program Listing 


10 HOME:CLEAR 
20 DIM MS(6) 
30 FOR L=1 TO 6 
40 INPUT"BILLING MONTH: ";MNS$ 
50 IF MNS=""THEN 240 
60 INPUT"KILOWATT HOURS: "3KWS 
70 INPUT"NUMBER OF DAYS: "sNDS 
80 INPUT"UNIT PRICE: ";UPS$ 
90 MS(L)=MNS4"/"4KWS4+"KWH/"4NDS+ 
"DAYS/"4"S"4UPS$ 
100 N=N+1 
110 M=M+2 
120 K=VAL(KWS) 
130 D=VAL(NDS) 
140 P=VAL(UPS) 
150 IF N=1l THEN LL=K:LMS=MS$(L):HH=K 
sHMS=MS(L) 
160 IF K<LL THEN LL=K:LMS=MS(L) 
170 IF K>HH THEN HH=K:HMS=MS(L) 
180 KK=KK+K 
190 DD=DD+D 
200 MU=KK/M 
210 TC=KK*P 
220 MC=TC/M 
230 NEXT L 
240 HOME 
250 PRINT 
260 PRINT"MONTH/KWH/DAYS/COST" 
270 PRINT 
280 FOR L=1 TO 6 
290 IF LEFTS(MS(L),3)="JAN" THEN PRINT MS(L) 
300 NEXT L 
310 FOR L=l TO 6 
320 IF LEFTS(MS(L),3)="FEB" THEN PRINT MS(L) 
330 NEXT L 
340 FOR L=l1 TO 6 
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350 
360 


370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
200 
210 
520 
530 
540 
550 
560 
270 
580 
590 
600 
610 
620 


630 
640 
650 
660 
670 
680 
700 
710 
720 
730 
740 
750 
760 


IF LEFTS(M$(L),3)="MAR" 
NEXT L 

FOR L=1 TO 6 

IF LEFTS(MS$(L),3)="APR" 
NEXT L 

FOR L=1 TO 6 

IF LEFTS(MS(L),3)="MAY" 
NEXT L 

FOR L=1 TO 6 

IF LEFTS(MS(L),3)="JUN" 
NEXT L 

FOR L=l1 TO 6 

IF LEFTS(MS$(L),3)="3UL" 
NEXT L 

FOR L=1 TO 6 

IF LEFTS(MS(L),3)="AUG" 
NEXT L 

FOR L=1 TO 6 

IF LEFTS(MS(L),3)="SEP" 
NEXT L 

FOR L=l1 TO 6 

IF LEFTS(MS(L),3)="0CT" 
NEXT L 

FOR L=1 TO 6 

IF LEFTS(MS(L),3)="NOV" 
NEXT L 

FOR L=l TO 6 

IF LEFTS(MS(L),3)="pEc" 


NEXT L 
PRINT 


PRINT"FOR BILL ANALYSIS, 


PRINT"TO QUIT, PRESS Q" 
GET AAS 

IF AAS="A" THEN 720 

IF AAS="Q" THEN 1040 
GOTO 670 

HOME 

PRINT :PRINT 


PRINT"ELECTRIC BILL ANALYSIS" 
PRINT Ns" BILLS RECEIVED, 


PRINT 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRESS A" 


MS(L) 


MS(L) 


MS(L) 


MS(L) 


MS(L) 


MS(L) 


MS(L) 


MS(L) 


MS(L) 


MS(L) 


BIMONTHLY " 
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770 PRINT"TOTALS OVER "3M3" MONTHS" 

780 PRINT KK;" KWH USED OVER ";M;" MONTHS" 
790 PRINT DD;" DAYS IN "53M;" MONTHS" 

800 PRINT" $"5TC3" COST OVER";3M3" MONTHS" 
810 PRINT:PRINT 

820 PRINT"FOR MONTHLY AVERAGES, PRESS A" 
830 GET AMS 

850 IF AMS="A" THEN 870 

860 GOTO 830 

870 HOME 

880 PRINT 

890 PRINT"AVERAGES PER MONTH" 

900 PRINT 

210 PRINT MU;" KWH AVERAGE USE" 

920 PRINT " S"s3MC3" AVERAGE COST" 

930 PRINT 


240 PRINT "LOWEST-USE BILL":PRINT" "3LM$ 
950 PRINT "HIGHEST-USE BILL":PRINT" ";HMS 
960 PRINT 
970 PRINT "TO DO ANOTHER SET, PRESS A" 
980 PRINT "TO STOP, PRESS 5S" 
990 GET BBS 
1010 IF BBS="A" THEN 10 
1020 IF BBS="S" THEN 1040 
1030 GOTO 990 
1040 HOME 
1050 PRINT " THANK YOU" 
1060 GOTO 1060 


Sample Run 
RUN RETURN 


BILLING MONTH: 
NOVEMBER RETURN 
KILOWATT HOURS: 
1234 RETURN 
NUMBER OF DAYS: 


60 RETURN 
UNIT PRICE: 
~-15 RETURN 
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BILLING MONTH: 
JANUARY RETURN 
KILOWATT HOURS: 
1255 RETURN 
NUMBER OF DAYS: 


61 RETURN 
UNIT PRICE: 
-15 RETURN 


BILLING MONTH: 
MAY RETURN 
KILOWATT HOURS: 
1015 RETURN 
NUMBER OF DAYS: 


58 RETURN 
UNIT PRICE: 
-15 RETURN 


BILLING MONTH: 


SEPTEMBER RETURN 


KILOWATT HOURS: 
997 RETURN 
NUMBER OF DAYS: 


59 RETURN 
UNIT PRICE: 
-15 RETURN 


BILLING MONTH: 
JULY RETURN 
KILOWATT HOURS: 
1001 RETURN 
NUMBER OF DAYS: 


60 RETURN 
UNIT PRICE: 
-15 RETURN 


BILLING MONTH: 
MARCH RETURN 
KILOWATT HOURS: 
1188 RETURN 
NUMBER OF DAYS: 
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61 RETURN 
UNIT PRICE: 
~l15 RETURN 


MONTH/KWH/DAYS/COST 


JANUARY/1255KWH/61DAYS/$.15 
MARCH/1188KWH/61DAYS/$.15 
MAY/1015KWH/58DAYS/$.15 
JULY/1001KWH/60DAYS/$.15 
SEPTEMBER/997KWH/ 59DAYS/S$.15 
NOVEMBER/1234KWH/60DAYS/5$.15 


FOR BILL ANALYSIS, PRESS A 
TO QUIT, PRESS Q 
A 


ELECTRIC BILL ANALYSIS 

6 BILLS RECEIVED, BIMONTHLY 
TOTALS OVER 12 MONTHS 

6690 KWH USED OVER 12 MONTHS 
359 IN 12 MONTHS 

$1003.50 COST OVER 12 MONTHS 


FOR MONTHLY AVERAGES, PRESS A 
A 


AVERAGES PER MONTH 
557.5 KWH AVERAGE USE 
$83.625 AVERAGE COST 


LOWEST-USE BILL: 
SEPTEMBER/997KWH/ 59DAYS/$.15 

HIGHEST-USE BILL: 
JANUARY/1255KWH/61DAYS/$.15 


TO DO ANOTHER SET, PRESS A 
TO STOP, PRESS §$ 
) 


THANK YOU 
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High/Low Bowling Score 


Suppose you bowl with a group of friends, each witha 
different score or set of scores? This program accepts their 
names and scores and sorts out the persons with the highest 
and the lowest bowling scores. 

Here’s how it works: at line 20 the program is 
dimensioned to hold data on 100 persons. Lines 30 to 130 
take in the info on each person. As each person's score is 
entered, lines 100 to 120 determine if that score is higher or 
lower than all previously-entered scores. If higher or lower, 
it is so noted. 

To complete data entry, simply press RETURN without 
data. That prompts your Apple, via lines 140 and 150, to 
print the lowest score and the highest score. 

Naturally, fhis kind of sorting could be applied to any 
game with ranges of scores among different playes. 


Program Listing 


10 HOME 
20 DIM M$(100) 

30 FOR L=1 TO 100 

4O INPUT"NAME: "3MNS 

50 IF MNS="" THEN 140 

60 INPUT"SCORE: "sKWS 

70 MS(L)=MNS+" "4kKWS 

80 N=N+l 

90 K=VAL(KWS) 
100 IF N=l THEN LL=K:LMS=MS(L) 

sHH=K :HMS=MS$(L) 

110 IF K<LL THEN LL=K:LMS=MS(L) 
120 IF K>HH THEN HH=K:HMS=MS(L) 
130 NEXT L 
140 PRINT"LOWEST SCORE: "sLMS 
150 PRINT"HIGHEST SCORE: ";HMS 


Sample Run 


RUN RETURN 
NAME : 
JOHN RETURN 
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SCORE: 50 


NAME: 

SUSAN RETURN 
SCORE: 

89 RETURN 


NAME : 

SCOTT RETURN 
SCORE: 

72 RETURN 


NAME: 

BOB RETURN 
SCORE: 

67 RETURN 


NAME : 

TOM RETURN 
SCORE: 

87 RETURN 


NAME: 
RETURN 


LOWEST SCORE: JOHN 50 
HIGHEST SCORE: SUSAN 89 


Funny similes 


Give these newfangled gadgets an inch and they'll 
take a mile. In the case of the computer, give it some 
tacky retorts and it will spew out an endless string of 
dumb remarks. 

The fun is in having the computer randomly select 
various words and combine them to make silly sayings. 

The random number is used to match the words into 
similes. 
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Program Listing 


HOME 

DATA SHORT, TALL,FAT,LEAN CLEAN 
DATA DIRTY,GOOD,BAD,HAPPY, SAD 
DATA GREEN,RED, YELLOW, BLUE, UGLY 
DATA PRETTY, SHARP, DULL, TACKY,NATTY 
DATA STRONG, WEAK,MEAN,NICE, DUMB 
DATA GNOME, TREE,PIG,BOX,CLOCK 
DATA TURKEY,GOLD,APPLE,DOG,ROOKIE 
DATA BEET,BIRD,SKY,SIN,PEACH 

DATA TACK,RAZOR, PIN, PLUG, BULL 
DATA WORM,LION,LAMB, PUPPY, OX 
PRINT CHRS(7) 

INPUT "WHOM ARE WE DESCRIBING ?";BS 
T=INT(100*(RND(1))) 

IF T<l OR T>25 THEN GOTO 300 

FOR L=1 TO T 

READ DS 

NEXT L 

RESTORE 

T=INT(100*(RND(1))) 

IF T<26 OR T>50 THEN GOTO 400 

FOR L=l1 TO T 

READ ES 

NEXT L 

RESTORE 

PRINT CHRS(7) 

PRINT BS;" IS "sDSs" AS A "3ES 
GOTO 300 


Recall Tester 


How long a number can you remember? As digits are 
added to lengthen a number, can you remember what you 
saw on your Apple’s video screen? 

As the game starts, the computer asks, “How long 
a number can you recall?” It tells you to “Watch closely.” 

Then it displays a “short” number.You repeat the short 
number into the computer. If you are wrong, it gets you to 
try again. If you were right, it gives you a longer number. 
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The game goes on until you can’t correctly recall a long 
number in five tries. 

If you wish to end the game, enter X rather than’ a 
number. The computer will report the length of the number 
you couldn’t get and how many tries you took. 


Program Listing 


10 HOME:CLEAR 
20 PRINT CHRS(7) 
30 PRINT"HOW LONG A NUMBER CAN YOU 
RECALL ?" 
40 PRINT" WATCH CLOSELY..." 
50 FOR T=l TO 1500:NEXT T 
100 GOSUB 500 
110 KS=KS4NS$ 
120 PRINT:PRINT KS 
130 FOR T=1 TO 500:NEXT T 
140 HOME :A=A+1 
150 IF A=6 THEN 400 
160 PRINT"THIS IS YOUR ATTEMPT NUMBER "5A 
170 INPUT"WHAT WAS THAT NUMBER ?";G5$ 
180 IF GS="X" THEN 400 
190 IF GS=KS THEN 300 
200 PRINT"WRONG. TRY AGAIN." 
210 GOTO 120 
300 PRINT:PRINT"YES, "3KS3" WAS THE 
NUMBER" 
310 PRINT"NOW TRY A LONGER ONE..." 
320 FOR T=1 TO 2000:NEXT T 
330 A=@:GOTO 100 
400 HOME:PRINT CHRS(7) 
410 PRINT"YOU GOT OUT AS FAR AS " 
3;D3;" DIGITS" 
420 PRINT:PRINT'THANKS FOR TRYING" 
430 END 
500 N=INT(10*(RND(1))) 
510 IF N<l THEN 500 
520 NS=STRS(N) 
530 D=D+l 
540 RETURN 


Event Timer 


Place your computer in acorner and let it time your next 
chess match. Three-minute egg. Final exam. 

The computer asks how many minutes you want for the 
event you are timing, and then it sounds a bell when thetime 
has passed. 

You can calibrate the clock by changing thevalue of SP 
in line 10. A larger number will slow down the clock. A 
smaller value for SP will speed up the clock. As you can see 
we have started with an SP value of 16. That works just 
about right on our 48K Apple II Plus, but it is not necessarily 
right for your machine. 

If you want to time an event of less than one minute, use 
a decimal. For instance, when you want to time a 30-second 
event, respond to the computer’s inquiry with .5 or for 45 
seconds key in .75. Use .17 for 10 seconds; .25 for 15 
seconds. 


Program Listing 


10 HOME :SP=16 

20 PRINT"EVENT TIMER":PRINT 

30 PRINT"HOW MANY MINUTES" 

40 INPUT"TO THE END OF THE EVENT "35LT 
50 PRINT:PRINT"PRESS ANY KEY" 

60 PRINT"TO START TIMING" 

70 GET STS 


110 C=C+l1 

120 IF C>(SP*LT*60) THEN 300 

130 MN=INT(C/SP/60) 

140 SC=INT((C/SP)-(60*MN) ) 

150 PRINT MN;" MINUTES",SC;" SECONDS" 

160 GOTO 110 

300 HOME:PRINT CHRS(7) 

310 PRINT"TIME IS UP" 

320 PRINT LT;" MINUTES HAVE PASSED" 

330 PRINT:PRINT"TO TIME AGAIN, PRESS 
ANY KEY" 

340 CLEAR:GET TAS 

350 GOTO 10 


83 


Photography: Flash Exposure 


Use your computer to help take better pictures! 

The most important factor in pictures shot with flash is 
the distance from your flash to the subject. Subjects 
which are close to you will receive a lot of light while sub- 
jects farther away will receive less light. 

Check your data sheet for the film you are using. Look 
for the film guide number. Next, make an estimate of the 
distance in feet from the flash to your subject. 

This program determines the proper f/stop setting for 
your camera. By the way, if the computer tells you to use 
an fistop setting between two f/numbers available on your 
camera, set your lens opening at the nearest f/number or 
halfway between the two, whichever is closest. 

For example, suppose your film has a guide number of 
80 and you estimate the flash-to-subject distance at 10 
feet. Use f/8 on your lens. 


Program Listing 


10 HOME:PRINT CHRS(7) 
20 PRINT TAB(13)"FLASH EXPOSURE" 
30 PRINT:PRINT 
40 INPUT"WHAT IS FILM GUIDE NUMBER "3G 
50 INPUT"WHAT IS FLASH-TO-SUBIJECT 
DISTANCE ";D 
60 F=G/D 
70 HOME:PRINT CHRS(7) 
80 PRINT"GUIDE NUMBER:",G 
90 PRINT"DISTANCE:",D;" FEET" 
100 PRINT"SHOOT AT:","F/"3F 
110 FOR L=1 TO 9:PRINT:NEXT L 
120 PRINT"FOR MORE, PRESS ANY KEY" 
130 GET KYS 
140 CLEAR:GOTO 30 


Sample Run 
FLASH EXPOSURE 


WHAT IS FILM GUIDE NUMBER 
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80 RETURN 
WHAT IS FLASH-TO-SUBIJECT DISTANCE 


10 RETURN 
GUIDE NUMBER: 80 
DISTANCE: 10 FEET 
SHOOT AT: F/8 


FOR MORE, PRESS ANY KEY 


Photography: Close Ups 


For copying and other close-up work with your camera, 
you extend the camera lens by using bellows or extension 
tubes. In doing that, you must allow for an effective in- 
crease in the normal f/number or your picture will be 
underexposed. 

You make such an exposure compensation whenever 
the subject distance is less than eight times the focal 
length of your lens. 

This program provides a convenient means of determin- 
ing the effective finumber. For example, if the focal 
length of your camera is 50mm and the lens-to-film 
distance (focal length plus extension from infinity posi- 
tion) is 100mm, and the normal fistop would be 22, the 
corrected stop would be //77. 

Or, if you are using a 25mm iens, with 50mm lens-to- 
film distance, a normal fistop of 8 should be corrected to 
f/4. Be sure to keep both focal length and distance in 
either mm or inches. Don’t mix apples and oranges. 


Program Listing 


10 HOME:PRINT CHRS(7) 

20 PRINT TAB(15) "CLOSE UPS" 

30 PRINT:PRINT 

40 INPUT"WHAT IS NORMAL F/ NUMBER "35F 

50 INPUT"WHAT IS LENS-TO-FILM DISTANCE 
IN MM "sD 
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60 IF D=$ THEN 50 
70 INPUT"WHAT IS THE LENS FOCAL LENGTH 
IN MM "sL 
80 N=F*L/D 
100 PRINT:PRINT CHRS(7) 
110 PRINT"EFFECTIVE F/ NUMBER IS F/"sN 
200 FOR L=l TO 9:PRINT:NEXT L 
210 PRINT"FOR MORE, PRESS ANY KEY" 
220 GET KYS 
230 CLEAR:GOTO 30 


Sample Run 

CLOSE UPS 

WHAT IS NORMAL F/ NUMBER 

22 RETURN 

WHAT IS LENS-TO-FILM DISTANCE IN MM 
100 RETURN 

WHAT IS LENS FOCAL LENGTH IN MM 

50 RETURN 


EFFECTIVE F/ NUMBER IS F/11 


FOR MORE, PRESS ANY KEY 


Savings Quickie 


Want a quick idea of how much your savings account 
will grow over the years? This program is fast to load and 
speedy to run. 

The computer will ask for initial savings balance, an- 
nual interest percentage rate, and number of years. In 
return, it computes compound interest and displays the 
savings balance at the end of each year in a handy list. 


Program Listing 


10 HOME:CLEAR 
20 INPUT"PRESENT SAVINGS BALANCE";B 
30 INPUT"INTEREST RATE";1I 
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40 INPUT"NUMBER OF YEARS";Y 
50 FOR L=1 TO Y 
60 Z=Z7+1I*(Z+B)/100 


70 PRINT L,Z+B 
80 NEXT L 
90 END 


Sample Run 
RUN RETURN 


PRESENT SAVINGS BALANCE: 
652 RETURN 
INTEREST RATE? 
8 RETURN 
NUMBER OF YEARS? 
li RETURN 
704.16 
760.4928 
821.332225 
887.038802 
958.001906 
1034. 64206 
1117.41342 
1206. 8065 
1303. 35102 
10 1407.6191 
11 1520.22863 


WODsAINUP WN Ee 


Random Number 
Quality Checker 


Ever wonder just how unintentional, haphazard, or 
unrelated your random numbers are? This program rein- 
forces your confidence in the pseudorandom number 
generator in the Color Computer. 

It causes the machine to generate 100 numbers bet- 
ween zero and 100 and reports how many are above 49 and 
how many are below 50. 
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Just for fun, we’ve thrown in an executive decision 
maker. That is, the board of directors voted 47 yes, 53 no. 
Can you imagine it? 


Program Listing 


HOME:CLEAR 
FOR L=1 TO 100 
X=INT(100*(RND(1))) 
IF X<50 THEN Y=Y+l1 
IF X>49 THEN N=N+l1 
NEXT L 

PRINT Y;"YES" 

PRINT N;"NO" 
N=9:Y=9@ 

PRINT" 

GOTO 20 


Sample Run 


RUN 


49 
51 


50 
50 


49 
D1 


D2 
48 


51 
49 


47 
53 


48 
a2 


47 
53 
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RETURN 


YES 
NO 


YES 
NO 


YES 
NO 


YES 
NO 


YES 
NO 


YES 
NO 


YES 
NO 


YES 
NO 


Appendix A: 
BASIC Words in the APPLE 


Here is a handy list of all the words in Applesoft BASIC. 
The computer uses only one byte of memory space to store 
each full word of these instructions. That compares with 
one byte per letter, number or symbol for other information 
you type into your APPLE. For example, the instruction 
RETURN is stored all in one byte of memory while a name 
such as White, for instance, takes up five bytes of memory 
space. 

Generally, the ampersand and the instruction XPLOT 
are not useful. COLOR, HCOLOR, SCALE, SPEED and 
ROT must be followed immediately by an equal sign. 
SCRN, SPC and TAB must be followed immediately by a left 
parenthesis. HIMEM and LOMEM must be followed 
immediately by a colon. ATN must have no space between 
its letters. The instruction TO must not be preceded by the 
letter A or the computer will think you want the word AT. 
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NOTRACE 


ON 
ONERR 
OR 


PDL 
PEEK 
PLOT 
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POKE 
POP 
POS 
PRINT 
PR# 


READ 
RECALL 
REM 
RESTORE 
RESUME 
RETURN 
RIGHT$ 
RND 
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Appendix B: 
Error Messages 


Your APPLE will tell you what went wrong when you 
make a programming mistake. Here are the messages you 
might receive: 

?CAN'T CONTINUE ERROR 


You are incorrectly trying to continue running a program 
after an error has occurred, or after a line has been deleted, 
or added to a program. Or the program does not exist. 
?DIVISION BY ZERO ERROR 


You can’t divide a number by zero as you are attempting. 


?FORMULA TOO COMPLEX ERROR 

You are trying to use more than two IF/THEN instructions at 
once. 

?ILLEGAL DIRECT ERROR 


When you try to use your APPLE like a calculator, you are 
using it in the immediate execution mode. When you try to 
run a previously-entered program, you use the deferred 
execution mode. You cannot use the instructions INPUT, 
DEF FN, GET or DATA in the immediate mode. This error 
message says you are incorrectly trying to do that. 
?ILLEGAL QUANTITY ERROR 

You are trying to use a number beyond the range of ability of 
your APPLE. 

?NEXT WITHOUT FOR ERROR 


Your NEXT has no matching FOR. 


20UT OF DATA ERROR 
You are trying to READ but all DATA has been used. 
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2?0UT OF MEMORY ERROR 


Your program is too large. Or you have used too many 
variables. Or your loops or subroutines nesting is too 
complex for the APPLE to handle. 

2?O0VERFLOW ERROR 


The result of a computation is just too large for the APPLE. 


?REDIM’D ARRAY ERROR 

You are trying incorrectly to redimension an array you 
already have dimensioned. 

?RETURN WITHOUT GOSUB ERROR 


You are trying to use the RETURN instruction but you didn’t 
GOSUB in the first place. RETURN must always be 
associated with a GOSUB instruction. 

?STRING TOO LONG ERROR 


You are trying to create a string of more than 255 characters. 


?BAD SUBSCRIPT ERROR 

You are trying to use an array bigger than the dimension you 
previously set. 

2SYNTAX ERROR 


You are not using BASIC correctly. Your punctuation or 
letters or symbols are wrong. 


?TYPE MISMATCH ERROR 


You’re trying to match apples with oranges. You are trying 
to mix numeric and string variables. The computer is 
looking for a numeric value and you are giving it a string or 
else it wants a string and you are giving it a numeric value. 


?UNDEF’D STATEMENT ERROR 


You are trying to jump to a nonexistent line. Check your 
GOTO, GOSUB or THEN instruction. 
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2UNDEF’D FUNCTION ERROR 


You are trying to use a “user defined” function but you 
haven't previously defined such a function. 
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33 New APPLE Computer Programs 
for Home, School & Office 
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For the small-business office, classroom, home, a brand- 
new volume of tested ready-to-run software in BASIC for the 
APPLE computer. 
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ruch more. 
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sorting, U.S. presidents, foreign capitals, weights & measures, 
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For the home, electric bill analysis,event timer, photography, 
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This is a complete set of software. All you have to dois type it 
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alone or in combination to make your computer do what you 
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Appendix of all APPLE words in BASIC and APPLE error | 
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TRS-80 Model I, II, Ill, 16, Color, Pocket, Pet, Vic, Atari, Sinclair, 
Timex, Sharp, Casio, Panasonic, Quasar and any other micro- 
computer using the BASIC programming language. Even if you 
don’t own a computer yet, learn programming by reading these 
listings and following their logic. 


ISBN 0-86668-016-0 
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